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Cuando todavía no teníamos ningún dato sobre la acogida 
que tendría el primer número de TODOSPECTRUM, los que 
hacemos esta revista nos pusimos a trabajar con ilusión en 
este número dos que ahora tiene en sus manos, sabiendo que 
no nos defraudaría, con entusiasmo hemos podido comprobar 
que así ha sido, lo que nos anima aún más a seguir en el 
camino. En este número abrimos la sección de Preguntas y 
Respuestas donde contestarnos a las primeras dudas surgidas, 
principalmente en el uso de los programas. 

Hasta el próximo número. 


GRAFICOS PROFESIONALES. Versión adaptada al 
Spectrum del programa Easel de gráficos para el QL. 

DESPLAZAMIENTO PIXEL A PIXEL. Mejorando los 
efectos gráficos mediante el código máquina. 

UNA RLIINA POR FAVOR. Mejorando la programa¬ 
ción utilizando rutinas. 

CONSTRUYA SU PROPIO INTERFACE CENTRO¬ 
NICS. Con unos mínimos conocimientos de electrónica 
podrá disponer de su propio interface para impresoras. 

SAQUE MAS RENDIMIENTO A SU MICRODRIVE. 
1 res programas de utilidad para conocer mejor su micro- 
drive. 

RESET. Una rutina en código máquina que permite in¬ 
corporar la función reset. 

POR FIN UN EDITOR DE TEXTOS PROFESIONAL. 
Tasword o Context en la versión española, analizado en 
profundidad. 

ANALISIS DE INTERFACES. Posibilidades de los tres 
principales interfaces para impresoras comercializados en 
nuestro país. 

PREGUNTAS Y RESPUESTAS. Primeras respuestas a 
las primeras preguntas. 

PROGRAMAS. Cuatro programas en BASIC, uno en 
Forth y otro en Pascal, para no tener tiempo de aburrir¬ 
se. 

54, 66 GUSANEZ. Aventuras y desventuras de nuestra mas¬ 
cota, quien nos da un avance del próximo número. 
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La 3 2 generación de software 
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Para realizar buenos 
gráficos ya no hace falta 
pensar en grandes equipos. 
Las posibilidades gráficas de 
su Spectrum le permiten 
realizar los más sofisticados 
gráficos de barras, de líneas y 
los atractivos dibujos de 
tarta. El color juega un papel 
muy importante en la 
representación de las curvas 
para diferenciar los 
diferentes datos, pero no es 
necesario al utilizarse trazos 
distintos para la 
representación de las 
distintas curvas. 


Está inspirado en el que con el 
mismo nombre fue escrito para el 
QL. Representa gráficamente los 
resultados numéricos introducidos 
por teclado. Información que vi¬ 
sualiza en tres tipos de gráficos: de 
barras, de línea y de tarta. Se pue¬ 
den comparar de forma aislada o 
conjunta doce valores de tres con¬ 
ceptos distintos, siendo ideal para 
la información mensual típica de 
los balances o informes que tanto 
gustan a los ejecutivos. Pero mu¬ 
chas y variadas pueden ser las apli¬ 
caciones y muchas son también las 
variantes. 

Una vez que haya cargado el 
programa (aunque es un poco lar¬ 
go merece la pena), al ejecutarlo le 
aparecerá en pantalla el mensaje 
“Cargando código máquina” se¬ 
guido de unas líneas: 8100, 8110, 
8120... Se refiere a las líneas 8100 
a 8195 donde se guarda la informa¬ 
ción en hexadecimal que el pro¬ 
grama utilizará para crear una ru¬ 
tina en código máquina al objeto 
de generar los gráficos con gran ra- 
pidez e incluso para crear un alfa- 
beto especial de representación de Üfl 


Easel no es. aparentemente, otra 
cosa que un programa que sirve 
para hacer dibujos. Como tal pro¬ 
grama podríamos haberlo incluido 
en la sección correspondiente en 
las últimas páginas de TODOS- 
PECTRUM. Pero basta echar una 
ojeada a las fotografías que acom¬ 
pañan este texto para comprender 
que no se trata de un programa 
más. 

La primera vez que uno se en¬ 
cuentra cara a cara con él, no pue¬ 
de por menos que impresionarse 


ante la belleza de estos gráficos fal¬ 
samente atribuidos en exclusiva a 
otros ordenadores. Cuando más 
calmadamente se le echa una se¬ 
gunda mirada, es fácil convencerse 
de que las aplicaciones del Spec¬ 
trum pueden abarcar desde la más 
sofisticada guerra galáctica al más 
perfecto programa de utilidad em¬ 
presarial. Ahora ya no queda la 
más mínima duda. Veamos sin 
apasionamiento y con un profun¬ 
do análisis descriptivo lo que pue¬ 
de dar de sí este programa. 


































los meses. Introduzca estas líneas 
tal y como aparecen en el listado y 
no se preocupe por la posibilidad 
de cometer algún error. El ordena¬ 
dor sabe que errar es de humanos y 
por ello comprueba los datos. Si 
cometió algún error le indicará la 
línea a fin de editarla con facilidad; 
en caso contrario continuará el 
programa preguntando el nombre 


que desea dar a los datos. Después 
se ofrece el menú, que tiene las si¬ 
guientes opciones: 

1) Entrada de datos. 

2) Adición/cambios/impresión 
de datos. 

3) Formato general. 

4) Gráfico de barra. 

5) Gráfico de líneas. 

6) Gráfico de tarta. 


Entrada de datos 

Al ejecutarse el programa por 
primera vez, automáticamente se 
entra en esta opción. Esto es lógi¬ 
co, ya que el programa no tiene 
prevista la obtención de datos por 
fichero o microdrive. Se piden los 
datos del primer concepto: nombre 
{hasta 7 caracteres), seguido de la 


10 Gü 3UB 3000 
20 LET 0X0: LET fíionth=0 
30 LET t$ = "T i tu 1.0 " : LET s$ = "" 
LET x*="eje x": LET y$="eje y" 
40 PÜKE 23656,0: FQR f= USR “a 
TÜ USR "C"+7: PÜKE 1,0: NEXT f 


R 


50 POKE USR "-"+4,255: PÜKE US 
"•■'"+4,204: PÜKE USR "-"+4,240: 


LET K * = " " 

60 DIM fu* (2,24) : LET m$ílt="l 
23456739 101112" 

70 LET m $ í 2) = " 5 b c d e f 4 h e i j k j l tü fi 
opqrstuv" 

30 DIM bít7,32): LET b$ i 2) = Nü 
fñbre de tos datos (max 7 car)": 


LET b*(3)="Tecte* tos datos o pu 
i.se ■ £ “: let b$ (4) =" Te c lee to 
s nuffl¿ros requeridos" 

90 let b$ ( 5 )= " Teclee l 

a opcion": LET b *(&)=" Nuevos 

datos de entrada": LET b*( 7 j="üP 
c ion : ’ím) enu : (P)rint: (R)epetir" 
100 LET z$=b$il); PAPER O: INK 



550 IF INKEY $ = "2" THEN GÜ TÜ 20 

00 

560 IF INKEY$="3" THEN Gü TÜ 33 
00 

570 IF INKEY * = “4" THEN GÜ TO 40 
00 

580 IF INKEY*=“5" THEN GÜ TÜ 50 
00 

590 IF INKEYSe“6" THEN GO TÜ 60 
00 

600 Gü TO 540 

1000 REM ******************** 

1001 REM * ENTRADA DE DATOS * 

1002 REM ******************** 
101O CLS : IF n=0 THEN GO TO 105 
0 

1020 PRINT AT 12,12; FLASH 1;"AU 
ISO": PRINT '" LOS datos existen 
tes se perde- ran con esta opcío 
n. Desea continuar? ( 

s /n) " 

1030 IF INKEY*="n" THEN GO TO 50 
0 



?: border 0 

110 LET n*=m*<l>: GO TO 1000 

500 REM ******** 

501 REM * MENU * 

502 REM ******** 

510 CLS : PRINT TAB 11; PAPER 6 
; INK 0,; " SP-ERSEL " 

52© PRINT AT 4,4;"l) Entrada de 
datos";AT 6,4, "2) Añadír/Correg 
ir/uer datos";AT 8,4;"3) Formato 
Genera t";AT 10,4;”4) Gráfico de 
barra";AT 12.4;"5) Gráfico tiñe 
al";AT 14,4;"6) Gráfico de tarta 

530 PRINT ltl,RT 1,0; PAPER 2;" 

TECLEE LA OPCION 
540 IF INKEY*="1" THEN GO TÜ 10 
00 


1040 
030 
1050 
IM t ( 
1060 
j INK 
1070 
,0, f; 
1080 
1090 
1100 
üu i e r 


IF INKEY$<>"S" THEN GO TO 1 


DIM d(12,3): D 
DIM e(3) 

TAB 10; PAPER 6 
DE DATOS" 

PRINT AT 6+f 


DIM a$ (3,7) : 

3) : LET g=0: 

CLS : PRINT 
0."ENTRADA 
FOR f=l TÜ 12: 

■‘)": NEXT i 

LET g=g+l: GO SUB 9000 
IF 9=3 THEN GÜ TÜ 1130 
PRINT til; AT 0,0; PAPER 2; 
e meter mas datos? is/n) 


1110 PAUSE 0: IF INKEY*="S" THEN 
GO TO 1080 

1120 IF INKEY*O"n" THEN GÜ TO 1 
110 

1130 PRINT ttl;AT 0,0;Zi; PAPER 2 


















entrada numérica (máximo 7 dígi¬ 
tos) correspondiente a los doce 
meses o doce características que se 
pidan, apareciendo en el margen 
izquierdo una numeración del 1 al 
12 que sirve de guía. Sólo se admi¬ 
te una entrada numérica, por lo 
que si no se dispone de datos habrá 
de introducirse un cero. Finaliza la 
entrada de datos introduciendo los 


doce datos o pulsando la tecla “e”. 
Después se posibilita introducir, 
de la misma forma, dos columnas 
de datos adicionales para otros dos 
conceptos. Al abandonar la entra¬ 
da de datos se pasa al menú. 

Añadir/Corregir/Ver datos 

Con esta opción se muestran los 


datos en pantalla y se puede elegir 
entre una serie de subopciones: 

(M) Menú. Se vuelve al menú. 

(C) Corregir. Cambios en los da¬ 
tos de un concepto. 

(L) Listar. Se obtiene una copia 
por impresora de los datos. 

(A) Añadir. Introducción de 
nuevos datos para un concepto. 

(N) Cambiar título. Cambiar el 


1H0 
2000 
2001 
2002 
2010 
INK 
OS 11 
2020 
2030 

j 0; f 

3 040 


PULSE UNA TECLA 

LET n=g: PAUSE 0; GO TÜ 500 
REN *************4********* 
REM 4 UER/SUSTITUIR(DATOS)4 
REM 44444444444444444444444 
CL5 ; PRINT TAB 5; PAPER 6 ; 
0;"UER/SUSTITUIR/AÑADIR DRt 


t$/£, *-# 

NT AT 6+f 


PRINT AT 2,16-LEN 
FGR í = 1 TÜ 12 : PRIN 
■■ j *’ NEXT f 

FQR gsl TO n: PRINT AT 4 , 9 * 
;AT 5,946+7-l í 9 í ;i 9 ) ■ 
TÜ LET a=LEN STR* 


2080 

2090 

2100 

2110 

2120 

2130 

2200 

THEN 

30 

2210 


IF 

IF 

IF 

IF 

IF 

Gü 


í *: 

1 %'• 
Í $ = 

4 * = 
TÜ 


PRINT 
LET 9 : 


¡‘■a 1 
L' 
:" n' 

20 : 

AT 
1: 


THEN Gü TO S00 
THEN GO TO 2200 
THEN GÜ TO 2300 
THEN CQPY 
THEN GO TÜ 2400 


0 ¿ 0;z*;z*: 
LÉT a*16: 


IF nal 
GO TO 22 


PRINT AT 20,0;"CoLurana ? 


943+7-aJ d ( f ,9 j 


8 +5; g; " ) ' 

FÜR f =1 
d ( f , 3 ) 

2050 PRINT AT 6+f 
NEXT f : NEXT g 
2060 PRINT ttl;AT ®,0j PAPER 2;"M 
ENU:(M)enu (C)orregir (Liistar i 
hí nadir (N)Cambiar ti tuto 
2070 PAUSE 0: LET i*«INKEY* 


2220 GO SUB 9340: LET g =URL d*: 
LET a *0 

223© PRINT AT 20,16-a;"FiLa 7 
7- LET c*=b*Í5) 

2240 LET COL =29-a: GO SUB 9850: 
LET f=UAL d $: IF f<l OR f >12 THE 
N GO SUB 9990: GO TO 2240 
226C °RINT AT 20,0,2* 

2270 Gü SUB 9820: LET dif,g)-URL 
d * 


r 


S DFTURRE 
CEU TER 


Avía, M'$!ra; r 1Ü* 1/0 ase. Iida 
BARCÉLONA -1 £ 


(331 432 07 31 



PAREJAS 


PROFESOR DIETETICO 


CONFIES CUENTAS 


AGENDA FERSONA^^ 

Habilidad y educativo 


Utilidad 


Cq/j labilidad familiar 


Utilidad 

1.790 pti 


2- 495 pti 


2 4P5 pts 


mtcrodriue 

3, 300 pts 







JUEGOS OLIMPICOS: 


FICHERO PERSONAL 


METRO 


ARCHIVO 

«BARCELONA 1 9 32 » 


Uti Fidad 


Habí t i dad 


Utilidad 

¡ Simulación y habilidad 


microdriwe 

3. 300 pti 


1 9 95 prs 


1. 655 pti 






CALC 


TAHUR 


BASÍC 


[“- 

SCANGRAPH 

U t i I i dad 


A?nr y i j mu latían 


Educativo 


Uti t .dad 

2 ■ 3 30 pts 


2.2 25pts ! 


2. 350 pti 


2.350 p (i 
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TRATATEX T 


CONTABILIDAD GENERAL 

Simulador de vuelo 


5 imulac ion 

Utilidad 


Gestión 

2 500 pf» 


3. 000 pts 

microdriue ^ 

3, 300 pts 


m i c r o d r i v e 




































































titulo dado a uno de los tres blo¬ 
ques de datos. 

Formato general 

Con esta opción se accede a una 
serie de datos de carácter general 
que aparecen o sirven de control 
en los distintos gráficos. 


1. Título principal. Es el titulo 
que aparece en los gráficos. 

2. Subtítulo. Aparecerá bajo el 
título principal debidamente cen¬ 
trado. 

3. Etiqueta del eje X: rótulo 
que aparece en el eje “x” 

4. Etiqueta del eje Y: rótulo 
que aparece en el eje "y”. 


5. Opción anual. Se puede in¬ 
dicar SI o NO. La opción “SI” per¬ 
mite trabajar con meses para cada 
uno de los 12 datos por concepto. 
En este caso se preguntará “Mes 
inicial”, es decir, el mes que co¬ 
rresponde al primer dato. Los da¬ 
tos siguientes se reflejarán en los 
meses sucesivos al mes inicial in- 


2296 IF fieíg) THEN LET e(g)=f 

2297 GO TO 2060 

2300 IF P<3 THEN LET n=n+1: LET 

9 =n: GO TO 2350 

2310 PR1NT AT 20 , 0 ;"Co lumna? 

". GO SUB 9340: LET 9 =UAL d*: 
PRINT AT 20,0jZ* 

2320 PRINT ttl;AT 0,0, PAPER 2;"E 
l dato '";g;"' sera borrado, Gui 
erecontinuar? ís/n) 

2330 IF INKEY*s"n" THEN GO TO 20 
60 

2340 IF INKEY $ < > "S " THEN GO TO 2 
330 

2350 FOR f-1 TO 12: LET díF,g)=0 
: PRINT AT f+ 6 , 9 * 8 ;Z*( TO 7 > : NE 
XT F: GO SUB 9000: GO TO 2060 
2400 PRINT # 1 ;AT 0,0;z*;z* 

2410 IF n =1 THEN LET g = l: GO TO 
2-1 *0 

2420 PRINT AT 20, 0 :"co lumna 



2430 GO SUB 9840: LET g sUAL d $: 
PRINT RT 20,0.Zl 

2450 GO SUB 9330: LET asm&d*: 
LET LigirLEN d«: 60 TO 2060 

3000 REM *********** 

3001 REM * FORMATO * 

3002 REM *********** 

3010 CLS : PRINT TRB 8; PAPER 6; 

INK 0;"FORMATO GENERAL” 

3020 PRINT INK 4; AT 2,0j"1) Ti tu 
lo principal.:": PRINT 't* 

3030 PRINT INK 4;AT 6,0;"2) SUbt 
i t U l O : ": PRINT 'S* 

3040 PRINT INK 4¡ÁT 10,0;"3> Eti 

S uela del «Je x:": PRINT 'x* 

0S0 PRINT INK 4iAT 1 - *■ M -' ■* ; 

queta del eje y: ’: 

3060 PRINT INK 4;AT 
ion anual:''.: 


IH i I u v 1 

PRINT 'u* 
18,0;"5) Opc 


3070 IF non th < >0 THEN PRINT “Si" 
3080 IF nonth*0 TMEN PRINT "No" 
3090 PRINT INK 4íAT 20,3;"Mes in 
i c i a l: ";: PRINT month 

3100 PRINT ttl; PAPER 2,AT 0,0; "P 
ui.se numero y especifique datoso 
pulse 'M' para ver el Menú 
3110 PAUSE 0: PÜKE 23658,0 
3120 IF INKEY* = "1" THEN LET f *4: 
LET g *31: GO SUB 3300: LET t*»d 


3130 

LET 


IF INKEY $ s" 2 " THEN LET f* 8 : 
gs 31 : GO SUB 3300 ; LET s$*d 


140 IF INKEY| = " 3 " THEN LET M 12 
LET g « 24 : GO SUB 3300 : LET KM 

IF INKEY És" 4 " THEN LET f «16 
i FT asía. fio SUB 3300 : LET iJM 


3150 


o * 

3160 

200 

3170 

0 

3180 

3200 


IF INKEY*-"5" THEN GO SUB 3 
IF INKEY*="m" THEN GO TO 50 


GO TO 
PRINT 


3100 
ttl, AT 


0,0,Z(; PAPER 
"Desea opc ion anual? <s/n) 


2 


3210 POKE 23658,0: PAUSE 0: IF I 
NKEYi="n" THEN LET month=0: LET 
PRINT AT 18,16;"NO ";A 
T 20,16,"0 RETURN 
322® IF INKEY*O"S" THEN GO TO 3 
200 

3230 PRINT AT 18,16;"Si" 

324© LET c*="Teciee el mes ínici 
ai " : LET CO l =«13: GO S 

UB 9850: LET month=UAL d*: IF mo 
n th < 1 OR ftionth > 12 THEN GO SUB 99 
90: GO TO 3240 

3250 LET n*=m*(2,ímonth-li*2+1 T 
O ) +ki* Í2, TO ímonth-l) *2) 

3260 RETURN 


3300 PRINT ttl;RT 0,0;zí;Z* 

3310 PRINT PAPER 6 ;AT 7,0,Z*í TO 


g): LET d*-"" 

3320 PRINT AT f,LEN d*, PAPER 2; 

FLASH l.iCHR* (76-(9 AND PEEK 23 
653=3>): PAUSE 0: LET i*=INKEY* : 
LET i=CÜDE i * 

3330 IF i =6 THEN POKE 23658,AB3 
i PEEK 23658-8) : GO TO 3320 
3340 IF i a13 THEN GO TO 3400 
3350 IF i-12 AND d*0"" THEN PP.I 
NT AT f ,LEN dS, PAPER 6 ;" ": LET 
d * = d* i TO LEN d*-l): 60 TO 3390 

3360 IF LEN d*=g THEN GO TO 3320 
3370 IF i<31 OR i>127 THEN GO SU 
B 9990: GO TO 3320 
3380 LET d *=d $ + i* 

3390 PRINT AT f,0, PAPER 6 ; INK 
0;d $: GO TO 332Ó 

3400 PRINT AT f.LEN d*;" ”;AT f, 
0, OUER 1; PAPER 0; INK 7;z*i TO 


9+H 














troducido. Si se elige la opción 
“NO”, no habrá referencia a me¬ 
ses. Sólo aparecerán doce subdivi¬ 
siones relativas a los doce datos. 


Gráñco de barras 

Aparecen los nombres de los 
bloques de datos introducidos y se 


ha de seleccionar el bloque o blo¬ 
ques de datos a representar. Así, si 
introduce 12 se representaría con¬ 
juntamente los datos referentes a 
los conceptos 1 y 2. Pero si intro¬ 
duce 123 obtendrá el gráfico de ba¬ 
rras de los dos primeros y un gráfi¬ 
co de líneas del tercero ante la im¬ 
posibilidad física de ofrecer los tres 
de forma conjunta. 


Gráfico lineal 

La selección se efectúa igual que 
en el caso anterior. 

Gráfico de tarta 

A diferencia de los anteriores, 
sólo se puede obtener el gráfico de 
un bloque de datos. Pero se tiene la 
posibilidad de resaltar alguno de 
los doce segmentos. 


3410 RETURN 

4000 REM ********************* 

4001 REM * GRAFICO DE BRRRRS * 

4002 REM ********************* 
4010 IF n = 1 THEN LET d*x’'l": GO 
TO 4060 

4020 CL5 : PRINT TRB 7; PAPER 6; 

INK 0;"GRAFICO DE BARRAS" 

4030 PRINT AT 5,0;"Que datos7" 
4040 FOR f=l TO O: PRINT AT 6+í, 
9; f; "> ":a $(f >: NEXT f 

4050 PRINT AT 18,0;"Cual represe 
n t07“: GO SUB 9860 
4060 Gú SUB 9100 

4070 LET Í=VHL d*íl): IF LEN d*a 
1 TMEN LET 9«f: GO SUB 9200: GO 
TO 4090 

4080 LET gsUAL d*(2): GO SUB 920 
0: GO SUB 9500: LET (-<3 
4090 GO SUB 9500: RANDOMIZE USR 
60000: IF LEN d*<>3 THEN GO TO 4 


120 

4100 LET g =UAL d*<3): FOR f«l TO 
e (9) -1: PLOT INK 8;48 + f *16,36+P 
y+d(f,g)*sc: DRAU INK 8; OUER 1; 
16, (d ít+1,g3 -d i f , g)) *Sc : NEXT f 
4110 PRINT PAPER l;"/ = "; a«íg) 
4120 PRINT tt1; PAPER 2;AT 1,0;b* 
(7 i 

4130 IF INKEY"mTHEN GO TO 50 
0 

4140 IF INKEY"p" THEN CQPY 
4150 IF INKEY*="r" THEN GO TO 40 
00 

4160 GO TO 4130 

5000 REM ****************** 

5001 REM * GRAFICO LINEAL * 

5002 REM ****************** 

5010 IF n*l THEN LET d*s"l": GO 
TO 5060 

5020 CLS : PRINT TAB 9; PRPER 6; 
INK 0;"GRAFICO LINEAL" 




ZX SPECTRUM 48 K ^ 
ZX INTERFACE 1 
ZX MiCRODRIVE 
COMMODORE 64 

PRECIOS MUY INTERESANTES 

{COMPRUÉBELO! 

Envíos a toda España por correo 
o transporte urgente. 

Cientos de referencias. 

SERVICIO POST-VENTA 

GARANTIA TOTAL 


INTERNOVEL (EA 3 BJT) 
c/. Víctor Catalá, n° 4 
Torroella de Montgrí (G i roña) 
Teléfono; (972) 758431 


J 





¡AHORA! 

¡fulgurante ayuda 

PARA EL MEJOR ORDENADOR! 

AL FIN FLOPPY D1SK PARA EL SPECTRUM 
CON NUESTRO INTERFACE EXCLUSIVO: 

— Sistema operativo en EPROM. 

— Utiliza sólo 128 bytes cíe memoria del Spectrum, 

— Permite acceso aleatorio, 

— Capacidad para tres unidades de floppy totalmente 
standard de 5 1/4'\ 

— Compatible con Orives de 40 y 80 pistas, de una o dos caras, 

— Maneja un máximo de 1,2 Mbytes. 

— Emplea los comandos del Spectrum. 

— Protegido con t4 password \ 

— Facultad de Merge de programas en Basic, 

— Gran facíIídad de empleo. 

TAMBIEN EN STOCK TECLADOS PROFESIONALES, 
INTERFACES DE IMPRESORA, ETC. 

AMPLIA GAMA EN SOFTWARE Y HARDWARE. 
PIDA CATALOGO MAS DETALLADO A: 

Süns Sistemas Lógicos Gerona 

Apartado 380 -17000 GERONA 
Teléf. (972} 75 84 31 - 23 71 00 


J 












En los tres gráficos se dispone de 
la opción PRINT para obtener co¬ 
pias directas por impresora del 
gráfico en pantalla. No existe op¬ 
ción para detener el programa, por 
lo que deberá pulsar CAPS SH1FT 
y BREAK o incorporar una sépti¬ 
ma opción al menú. 

Un buen programa, realizado en 
BASIC en su mayor parte, a excep¬ 


ción de las rutinas en código má¬ 
quina de las líneas 8000 a 8195. La 
primera de ellas, dibuja el gráfico 
de barras, ya que esto seria excesi¬ 
vamente lento en BASIC. La se¬ 
gunda dibuja las lineas de los ejes. 
Una tercera rutina se encarga de 
colocar los datos del eje X de for¬ 
ma adecuada. Finalmente, se utili¬ 
za el código máquina para rotular 


los meses en un formato inferior. 

Una vez ejecutado el programa, 
puede lograrse mayor rapidez 
cambiando la linea 10 por LOAD 
“ ” CODE, eliminando las líneas 
8000 a 8195 y grabando el progra¬ 
ma con 

SAVE “SP-EASEL” LINE 10: 
SAVE “Easei CM” CODE 
60000.460 


5030 PRINT ñT 5,0;"Que datos?” 

5040 FÜR f*l TO H: PRINT RT 6+f, 

2; f; '*; a* í f ) : NEXT f 

5050 PRINT AT 18,0;"Cual represe 

n 1 0 ?": GO SUB 9360 

6060 GQ SUB 9100: GO SUB 9300 

FOR asi TO LEN á*. LET 9*Ufl 
U): GQ SUB 9800: NEXT • 
PRINT ttl; PAPER 2; AT 1,0; b* 


5070 
L d* 
5030 
(7) 
5098 
0 

5100 

5110 

88 

5120 
6000 
6081 
6002 
6010 
6060 
6020 
INK 
6030 
6040 

605¿> 


IF INKEY $“"(#" 

IF INKEY t = ,, p‘ l 
IF INKEY$= ”r" 


THEN GQ TO 50 


THEN 

TMEN 


CDPY 
GQ TQ 


50 


GO TO 5090 

REM ******************** 
REM * GRAFICO PE TRRTh * 
REM ******************** 
IF n = 1 THEN LET 9 *n ™ 


GQ TQ 


CLS : PRINT TRB S; PRPER 6; 
0; "GRAFICO DE TARTA” 

PRINT RT 5,0:"Que datos?" 
FÜR f =1 TO n : PRINT RT 6+f, 

) " ; 3$ í f J : NEXT f 

PRINT RT 20 , 0 ;"Que gráfico? 

. GO SUB 9840: LET 9=URL d* 

6060 IF e ia) :1 THEN LET h*0: l>0 

TQ 6110 

RT 0,0; PRPER 2;"D 
ataun segmento d 
tarta? ts/n) 

IF INKEY*=”n" THEN 
6110 

>"S" THEN GO TQ 6 


6070 
esea 
e l g í 
6080 
LET 
6090 
080 
6180 


PRINT ttl; 
r e s a 11 a r 
a f i c o de 
PAUSE 0: 
h=0; GO TO 
IF INKEY * < 


PRINT RT 20,0;"Segmento? 

. LET c* = " Teclee el numero a 
resaltar ”: LET col*17: GO SU 
B 9850: LET haUAL di: IF h < 1 OR 
h>etg) THEN GO SUB 9990: GO TO b 
100 

6110 LET t =0: LET a*0: LET C=100 
: LET r*0: FOR f =1 TO elg): LET 


t *t+RBS d(f,9) : NEXT 
6120 CLS : PRINT TRB 
¡ t $:RT 1,16-LEN S*/2; 

$ (g , TQ t tgn ; ” : ";RT 
ntajes” 

6130 FOR f«1 TO e (9) 

: LET paABS d Cf ,g) /t 
api: LET rsf +p *2*PI: 

r,48*SIN r ^ 

6140 IF h * f THEN PLOT 
r 1,76 + 10 + SIN rl: DRRUI 
8*SIN .* „ 

6150 LET hi=0: DRRUI 48* ICOS a-CO 
S r),48*(SIN a-SIN r),-p*2*PI: I 
F eíg)Si THEN CIRCLE 84,76,48 
6160 IF h*f THEN ORAU -48#C0S a, 

-48*SIN a: LET hi=1 _ 

6170 LET pl:INT (p*lt4+.5)/100: 
LET q*=STR* (INT il00*ipl-INT pl 


16-LEN t*/2 
sI; RT 2,0;a 
4,21;"Po r ce 

PLOT 84,76 
LET rl*r+p 
DRAU 48 *COS 

84 + 10*CQS 

48 *COS r , 4 


)+.5)/100)+”0" 

6130 LET p*=STR* INT pl: 

' 4D ‘ ' 


LET q* = 


C"."+q$ RND q*(l TO 2)="00">+íq* 
AND q* C1) +iq* (2 TO > RND q 

Sil TO 2)="©.") 

6190 PRINT RT 5+ f, 29-LEN p*.:p*+q 
t( TQ 3) 

6200 IF P <0.025 RND hof THEN PR 
INT INK 4 ; RT 5+ f , 22 i " *" i RT 19,24 
;'•* a no ": RT 20,24: "están en";R 
T 21,24;"gra f i co" ^ 

6210 IF ™onth<>0 THEN POKE 23606 
,116: POKE 23607,232 
6220 PRINT RT 5+f,23Jn %(f *3-1 TQ 
f *2) 

6230 IF p<0.025 RND fi>h THEN GO 
TÜ 6260 

6240 PLOT 84+(hi*8+52)*COS ri,76 
+ (hi*8+52)«SIN rl: DRRU 4*C0S rl 
,4*SIN rl w ^ . 

6250 PRINT ÜUER 1; INK 4;AT 12-l 
3+hi)*SIN r1.10+(S+hi)*COS rl;n* 
( f *2-1 TO f *2) _ 

6260 LET asT: POKE 23606,0: POKE 
23607,68: NEXT f 

6270 péINT ttl;AT 1,0; PAPER 2;b* 

6280 IF INKEY* = "m" THEN GO TO 50 
0 

6290 IF INKEY*=’P" THEN COPY 



6308 IF INKEY** 1 


GO 


00 

6310 
3000 REM 

8001 REM 

8002 REM 
8005 CLS 
CARGANDO 
8010 LET 
8015 FOR 
8020 FOR 


THEN GU IU b<0 


TO 6280 

****************** 

* CODIGO MAQUINA * 
****************** 

: PRINT "ESPERE, ESTOY 
C/M": PRINT 
Cs0: LET ffi=60000 
1=0 TO 9: RERD a* 

S *1 TO LEN a* STEP 2 







8025 LET a=C0DE a*ÍS): LET b-COD 
E ai (4+1) 

8030 LET e*c+b+a 

8035 IF a>06 THEN LET a-a-39 

804.0 IF b >96 THEN LET b»b~39 

804*5 LET a*a-4.S: LET b*b-48 

8050 POKE m,a *16 + b 

8055 LET m«rn+l 

8060 NEXT s 

8065 READ ChKSUWi 

8070 PRINT 1*10+3100: IF COChKS 
um THEN PRINT "Ero r en La Linea 
"¡L*10+3100: STOP 
8075 LET 0=0: NEXT L 
8030 RETURN 

8100 DATA "1126533e3f214.8ea0100i 
813d5C5£5083f0345F57SC b7F2809«d4 
447033C8814188715a72003041833ebF 
1 F57?e57ce6'’ 

8105 DATA 6132 

8110 DATA "13cb2Feb2fCb2fC65S67d 
51146ea7b815 Flad177e103a720290S7 
C 3d 672 r e607200a 7dd 6206F38047CC60 
867 F110C 061" 

8115 DATA 6564 

8120 DATA "23clCb4028050d3e3f180 
336F C0Cd 1109a C9037 C 3C67e60720627 
d c6206 F33dC7cd6036718d6070408d9e 
5d93a*?eas F" 

8125 DATR 6571 

S130 DATA "Cb276722e7ea011017110 
10179b3300669d5a F 5 F18056841d5160 
060731F353803be3307944Fd9c1C5130 
44 F d5d9e12a" 

8135 DRTA 6079 


3140 DATA "7d5e73344779854fcd34« 
bd97910d fdld9eld9c9ed437dSccdaa2 
247043S010 f 10 Fd47es F52ae7ea3ae6e 
aa720017e3d 11 
3145 DATA 6925 

8150 DATA "32e6eabd3306fIel7eb07 
7 e 9 Fle le92157500509C56506087e23e 
d670 F0F0 f0 F2b?72410 F3ele12b2bl0e 
9c9” 

3155 DATA 5996 

8160 DATA "00390a0a0b2a12000010a 
3a3a3á3a300003b223b2222230000b02 
3b02623b00000293a2a2b2a2a000030a 
3aSb0a8aS00'‘ 

3165 DATA 5960 

3170 DATA "00132a2a3 b2a2a000030a 
Sa8302323000023a3a390909000003a0 
a oa 0a 2a11000090 a 3a 3a 3a 3280000 a 0a 
0a0a0a03300" 

8175 DATA SA15 

8130 DATA "00122a2a3a2a2Q000090a 
Sa0a0a3330000lb2223120a330000b02 
8a33020a03000112a£a2a2a110000b81 
01010109000" 

3135 DATA 5627 

8190 DATA "00112a 2a2a2a29008023a 
3a3a390100000332a2b2a2a330800982 
0a 020209800" 

8195 DATA 3736 

9080 REH ******************** 
9001 REH * ENTRADA DE DATOS * 
9882 REH ******************** 
9010 LET F s0: PRINT RT 4,9*8+510 

. H ’i ti ~ 

9030 00 SUS 9330 



----'l 

SUSCRIBASE 
POR TELEFONO 

* más fácil, 

* más cómodo, 

* más rápido 


Telf. (91) 7337969 

7 días por semana, 24 horas a su servicio 

SUSCRIBASE A 

Tb d ospectrun 










984-0 LET L ( 9 ) -LEN d$: LET a*ig)a 
d* 

9050 GO SUB 9310 

9060 IF i=end OR i*end+32 THEN G 
O TÜ 9080 

9070 LET f = f +1; LET d(t ,9 »=UhL d 
$: IF f<12 THEN GO TO 904-5 
9080 LET e(9)sf RETURN 

9100 REM ********** 

9101 REM * ESCALA * 

9102 REM ********** 

9110 CLS PRINT AT 10 6; "ESPERE 
, POR FAUOR ESTOY" ; flT 12, TARREA 
ARANDO Lft ESCALA" 

9120 LET Ss0: LET S5=2: LET m=l: 

LET d I “0 FOR a =1 TO LEN d*: LE 
T g =UAL d$(a) : IF eíg)>dL THEN L 
ET dUeig) 

9130 FOR f =1 TO e(9): LET R =0: L 
ET b=ABS d(f.o! 

914.0 IF b > 10 THEN LET b = b/10: LE 
T K =K +1: GO TO 914-0 
9150 IF IOS THEN LET S*K: LET sS 
= 2 

9160 IF SGN d ( f , 9 ) = - 1 THEN LET ffi 

= s 

9170 NEXT f: FOR f =1 TO e(q): LE 

T b=ABS d ( F , 9 > /10+S 

9180 IF b >5 THEN LET S5 = l 

9190 NEXT f: NEXT a: LET SC=12*ffi 

♦S5/10TS: RETURN 

9200 REM ********************** 

9201 REM *CRRGflNDO GRflF.BARRAS* 

9202 REM a********************* 

9210 PQKE 59974- , f *2: POKE 59975, 
9*2 

9220 FOR 4«1 TO 12: POKE 4*2*599 
74-, d (a , f) **c : POKE a*2 +S997S,d ta 
, 9 ) *S C : NEXT 4 

9300 REM ******************* 

9301 REM * DIBUJAR GRAFICA * 

9302 REM ******************* 

9310 CLS : PRINT TAB 16-LEN t*/2 
;t$:AT 1¿16-LEN 4 4/2;Sí 
9320 PLOT 55,36: DRAU 0,120: IF 
m =1 THEN PLOT 52,36: LET py*0: P 
OKE 60001,38: POKE 60082,83 
9330 IF m.5 THEN PLOT 62,97: LE 
T py *61: POKE 60001,38: POKE 600 
02,78 

9340 DRAU 195,0: LET X*36: FOR y 
=6 TO 114 STEP 12: PLOT 54,X+y: 
DRAU 1,0 

9350 IF lfta.5 AND y*54 THEN LET X 
* X +1 

9360 PLOT 52,X+y+6: DRAU 3,0: NE 
XT u: PLOT 52,36: DRAU 3,0 
9370 LET 4=10+S: IF S>2 THEN LET 
4*1: PRINT AT 20,0; INK 4j"X ,, ;l 
0t S: LET S*0 

9380 INK 4: FOR u*0 TO 10 STEP 2 
LET X *a * (10-y+a*y * (ffi-m/S5 : P 
RINT AT 2+1.5*y,6-LEN STR* XjX: 
NEXT y 

9390 ÍF non th < >0 THEN PQKE 23606 
,116: POKE 23607,232: PRINT AT 1 
8,7;n*¿ TO dUSÍ: POKE 23606,0: 
POKE 23687,60 

9400 IF l*Oñth*0 THEN PRINT AT 16 
, 7 ; n % C TO di. *20 RANDOMIZE USR 6 
02fe5 

9418 PRINT AT 19,19-LEN X4/2, '4 
9420 FOR y *1 TO LEN y*: PRINT AT 
^9-LEN y$/2+y,4-s-1/ffl;y *(y): NEX 

9430 INK 7: PRINT AT 21,8; PAPER 
1J Zt;AT 21,0;"CLAUE"; 


9448 RETURN 

9580 REM 

9501 REM 

9502 REM 


*********** 
* CLAUE * 
*********** 


9510 LET isf*2 

9520 PRINT PAPER 1J INK i i "| 

nk 7;":a * í f); 

9538 RETURN 

9600 REM ****************** 
9681 REM * DIBUJAR LINEAS * 
9602 REM ****************** 


9618 
4,0: 
9620 
F +1,9 
S C : P 
9630 
9640 
* cfl); 
9650 

9800 

9301 

9382 


60135,9*2-2 
63+^,36+py +d 


POKE 
PLOT 

FOR f =1 TÚ 6( 

) -d i f ,g) • POK 
OKE 68155,SGN y 
RANDOMIZE USR 60137 
PRINT PAPER 1; H* (g) 


POKE 6013 
(1,9) *s C 
!-1: LET y*d í 
68152,ABS y* 


NEXT 
. * 9 ) . 


RETURN 

REM ********************** 
REM «ENTRADA DEL TECLADO * 
REM ********************** 


9810 LET Lineaf+7: LET COI«9*8+7 
: LET Lena?: LET enda69: LET nax 
=57: LET Hiin*45: LET exC8P=47: L 
ET C*abJ (3): GO TO 9880 
9820 LET Linear' +6: LET COL *9 *8 + 7 
: LET LSn a 7: LET *nd=2S6: LET ma 
X*57: LET min»45: LET excap=47: 
LET C*=b$(6): GO TO 9330 
9330 LET Une «5: LET COL«9*8+7: 
LET Len=7: LET and=236: LET l»«X> 
127: LET min*31: LET excep«0: LE 
T C $ = b$ (2) : GO TO 9380 
9840 LET Line=20: LET COL«15: LE 
T Len = 1: LET tnd=256: LET maxsCO 
DE STR4 n: LET nin=49: LET €XC«P 
=0: LET C$sb*<5): GO TO 9838 
9850 LET Lina=20; LET len^S: LET 
and =256: LET fifi ax =57 : LET lft i n *48 
LET excepa0: Gü TO 9380 
9860 LET Une =18: LET COL =22: LE 
T Len =n: LET end*256: LET nax*CO 
DE STR4 n: LET nin=49; LET exCCp 
=8: LET C4=b*(4): GO TO 9880 
9880 PRINT AT Li na,COL-len; PAPE 
Len) : LET d*a‘"‘ 
ttl; AT 0,0;z»; PAPER 2 


R 6; Z* C TO 
9890 PRINT 

99 I 0 PAUSE 0: LET i$=INKEY$: LET 
i«CODE i $ 

9910 IF i =12 AND THEN 

NT AT Lina reoL-LEN d»; PAPER 
LET d$=d«( TO LEN d*-l): 

TO 9970 

9920 IF i =13 AND d*0"" THEN 
TO 9980 


PRI 

Gó" 

GO 


9930 IF LEN d$=iefi THEN GO SUB 9 
990: GO TO 9890 

9940 IF iaftnd OR i=«nd+32 AND di 
THEN GO TO 9980 

9950 IF i<min OR i>«ax OR i«exce 
p THEN GO SUB 9990: GO TO 9890 
9960 LET d $ =di + i i 

9970 PRINT AT l in*. COL -LEN dt; P 
APER 6; INK ®;d$: GO TO 99Q0 
9980 PRINT OUER ljAT Line,COL-Le 
n;z* i TO Len): RETURN 

9989 REM ********************** 

9990 PRINT ttl; PAPER 2;AT 0,0;" 

*«ENTRADA INUALIDA*# 
PRUEBE DE NUEUO 

: BEEP ,3,10: PAUSE 75 

9995 PRINT «1;AT 0,0;zi;zi: RETU 

RN 








Desplazamiento 


Pixel a Pixel 

_ 

Una de las mejores características del Spectrum reside en sus posibilidades gráficas, 
tanto en los caracteres del código ASCII como en los UDG (gráficos definidos por el 
usuario). Instrucciones como PRINT AT permiten manipular las distintas 
posiciones de la pantalla, realizando buenos gráficos con las instrucciones PLOT y 
DRAW. Pero el mayor problema suele ser la movilidad de estos gráficos. Algunos de 
los ordenadores rivales, como es el caso del Commodore, incorporan los llamados 
Spriies, con la gran ventaja que ello supone en una buena visualización sin 
menoscabo de la rapidez de ejecución. En el Spectrum puede simularse mediante el 
movimiento carácter a carácter, suficientemente rápido pero que da la impresión de 
imágenes que más bien “saltan” de unas posiciones a otras. 


LISTADO 1 RESUMIDO. 


C800 

2fl 

65 

50 

E5 

E6 

2fl 

0806 

63 

50 

01 

0F 

00 

09 

0800 

ED 

53 

23 

02 

CF 

19 

0313 

00 

A2 

2D 

FE 

30 

38 

0318 

08 

47 

D6 

90 

38 

13 

081E 

ED 

5B 

78 

50 

18 

04 

0324 

ED 

58 

36 

SO 

26 

00 

C32A 

6F 

29 

29 

29 

19 

18 

0330 

06 

CD 

38 

0B 

21 

93 

0336 

50 

E5 

DD 

El 

CD 

A2 

0830 

30 

67 

es 

CD 

R2 

2D 

0842 

El 

6F 

E5 

0E 

06 

El 

0348 

£5 

ES 

24 

05 

44 

4D 

C34E 

CD 

flfl 

22 

01 

47 

AF 

0354 

B0 

DD 

7E 

00 

38 

11 

CSSfl 

EB 

26 

00 

6F 

3E 

08 

0360 

90 

47 

29 

10 

FD 

EB 

0366 

7E 

flfl 

77 

33 

7B 

RE 

0860 

77 

DD 

23 

0D 

30 

D5 

0872 

El 

El 

22 

65 

50 

09 


PROGRAMA 2 

100 REM SMOÜTH MOUE DEMÜ 
llO REM BU Simón N GOOdWin 
130 REM 

130 REM LO Ad COdt 

14.0 CLERP 30999 

150 LORO "MOvt f“CÜDE 31000 

160 ReM Stt «rea 

170 LET xiíiax-347 

130 LET u Ni « X ■ 168 

190 REM S«t up positions 

800 LeT XpoSxINT íRND*200) 

210 LET ypos =175 

S30 LET Xdif-INT ÍRND*6+1> 

230 LET ydir■-INT (RND*5+1) 

34.0 REM Dt f i ne batí 

350 RESTORE 

360 FOR i»USR TO USR 

370 REflD d 
380 POKE i,d 
390 NEXT i 


300 LET Shap**144 

310 INK 6: PAPER 3: BÜRDER 5 

330 FOR i*0 TO 31 

330 PRINT flT i , 0 > INVERSE 1, 

350 NEXT i 
360 GO TÚ 430 
390 REM MOV* batí 
400 LET 0 tdx «xpos 
410 LET oldyxypos 
430 LET XpO»*XPO»+Xdir 

435 IF xpos>l THEN IF xpos<xmax 
THEN GO TO 440 

430 LET xpo»*OldX: LET XdifalNT 
i RND*7 + 1)a-SGN Xdir 

436 BEEP .03,15 

440 LET ypos «ypo* +ydir 
445 IF ypos>7 THEN IF ypos<ymax 
+7 THEN SO TO 460 
450 LET yposxotdy: LET ydir=INT 
ÍRND*5+1Í*-5GN ydir 
455 BEEP ,03,30 

460 LET d«OLdX RND Otdy»Shap«tü 
SR 51300 

470 LET Shapíashape+i-4*tshape* 
147) 

480 LET dsxpos RND ypQSsshapa+U 
5R 51300 
490 GO TO 400 
500 REM BiU definition 
600 DflTfl 60,86,135,143,143,159, 
136,60 

610 DRTfl 60,66,193,835,349,353, 
136,60 

620 DflTfl 60,126,249,841,341,335 
,66,60 

630 DflTfl 60,136,191,159,135,131 
,66,60 
640 DflTfl 0 


PROGRAMA 3 

100 REM Cargador 
120 REM 

300 inpüT “Di facción";L 















P ara lograr una buena defi¬ 
nición gráfica ha de reali- 

_ zarse el movimiento pixela. 

pixel, y ello sólo es posible, 
si desea tener una veloci¬ 
dad aceptable, con ayuda del códi¬ 
go máquina. 

La rutina que hace esto posible 
permite imprimir los distintos ca¬ 
racteres en cualquier coordenada 
dentro de los límites de alta resolu¬ 
ción. Es decir, que se dispone de 
una combinación de 256 por 176 


puntos o pixeh, en vez de las 704 
posiciones o caracteres resultado 
de las 22 filas por 32 columnas. 

La rutina no es excesivamente 
larga, sólo 120 bytes, y tiene la 
ventaja de poderse ubicar en cual¬ 
quier posición de memoria. Lógi¬ 
camente, siempre por encima de! 
programa en BASIC y con las pre¬ 
cauciones necesarias si se manejan 
otras rutinas en código máquina. 
En el ejemplo que ilustra su fun¬ 
cionamiento con una pelota se uti¬ 


lizó la dirección 51200 {o C800 en 
hexadecimal), sólo válido para el 
Spectrum de 48K. Pero puede uti¬ 
lizarse por el Spectrum de 16K en 
localizaciones de memoria inferio¬ 
res. Por ejemplo la 31000 (o 7918 
en hexadecimal). Para ello habría 
que cambiar las instrucciones 460 
y 480 del programa 2, como sigue: 

460 LET d=oldx AND oldy= 
shape + USR 31000 

480 LET d=xpos AND ypos= 
shape + USR 31000 


210 LET c-0 

220 POR i *L TO L + U9 

230 REfiD d 

240 LET C-C+d 

250 POKE i,d 

260 NEXT i 

270 IF C<>13017 THEN PRINT "Err 
or in DATA": STOP 
280 PRINT "Posición carácter en 
x,y con" 

290 PRINT "RANDOMIZE X AND y = 

C + USR "'l 

300 PRINT '"Todo grabado, por s 
i acaso..." 


310 SAYE 
320 SAYE 
330 STOP 
408 DATA 
410 DATA 
420 OATA 
430 DATA 
440 DATA 
450 DATA 
460 DATA 
470 DATA 
480 DATA 
490 DATA 
500 DATA 
510 DATA 
520 DATA 
530 DATA 
540 DATA 
550 DATA 
560 DATA 
570 DATA 
580 DATA 
590 DATA 


"SMOOTH/SAS" 

"SMOOTH^CQD"CQOE L,120 

42,101,92,229,236,42 
99,92,1,15,0,9 
237,82,48,2,207,25 
205,162,45,254,128,55 

II, 71,214,144,66,19 
237,91,123,92,24,4 
237,91,54,92,38,0 

III, 41,41,41,25,24 
5,205,66,11,33,146 

92,229,221,226,285,162 

45,103,229,285,162,45 

225,111,229,14,8,225 

37,229,36,197,68,77 

205,170,34,193,71,175 

176,221,126,0,40,17 

235,38,0,111,62,6 

144,71,41,16,253,235 

126,170,119,35,123,174 

119,221,35,13,32,213 

225,225,34,101,92,201 


PROGRAMA 4 

1 OLEAR 50000 

2 LET T«0 

3 rOR 1-64600 TO 65099_ _ 

4 READ X: POKE I,Xl LET T-T+X 

5 NEXT I 

6 IF T 059604 THEN PRINT "DAT 
A ERROR" 

7 IF T 059504 THEN STOP 

9 SAYE "MOY£AREfi"CODE 84600,5 

08 

10 PRINT "ahora MOYERREA" 

11 PRINT "Grabado *n cinta." 

íl Bata 243 , 205 , 95 , 252,251 

14 DATA 201,0,205,4.4,254 

15 DATA 24,3,24,242,255 

16 DATA 1,8,8,197,42 

18 DATA 75,255,126,230,282 


20 DATA 32,2,193,201,128 
22 DATA 50,165,254,205,171 
24 DATA 252,58,165,254,230 
£6 DATA 3,202,188,252,61 
28 DATA 202,15,253,61,202 
30 DATA 97,253,61,202,210 
32 DATA 253,58,165,254,230 
34 DATA 248,32,10,42,75 
36 DATA 255,36,237,99,75 
38 DATA 255,24,202,68,165 
40 DATA 254,214,4,50,165 

42 DATA 254,24,206,58,164 
44 DATA 254,71,197,71,197 
46 DATA 71,16,254,193,16 

43 DATA 249,193,16,244,201 
50 DATA 6,8,197,5,237 

52 DATA 91,7?,265,122,126 

54 DATA 87,213,58,81,255 
56 DATA 71,197,123,214,1 

55 DATA 95,213,221,225,58 
60 DATA 83.255,198,1,71 
62 DATA 221,283,0,38,48 
64 DATA 4,221,203,256,196 
66 DATA 221,36,16,242,193 
68 DATA 16,2,24,14,209 

70 DATA 123,198,32,95,48 
72 DATA 4,122,198,8,87 
74 DATA 213,24,209,209,193 
76 DATA 16,191,193,16,9 
78 DATA 58,77,255,61,50 
80 DATA 77,255,6,8,107 
82 DATA 195,144,252,6,8 
84 DATA 197,5,42,77,265 
86 DATA 124,128,103,229,58 
88 DATA 81,255,71,197,58 
90 DATA 83,255,196,1,71 
92 DATA 22,0,90,22,0 
94 DATA 203,62,48,2,22 
100 DATA 128,126,131,119,35 
102 DATA 16,241,193,16,2 
104 DATA 24,14,225,125,198 
106 DATA 32.111,48,4,124 
108 DATA 193,8,103,229,24 
110 DATA 213,225,193,16,196 

112 DATA 193,4.62,16,144 
114 DATA 32,9,58,77,255 
116 DATA 60,50,77,265,6 

113 DATA 3,197,195,144,262 
120 DATA 237,91,77,255,58 
122 DATA 81,255,60,71,Í23 
124 DATA 214,32,96,46,4 
126 DATA 122,214,8,87,24 
128 DATA 10,123,198,32,96 
130 DATA 43,4,122,198,8 

132 DATA 87,213,197,122,246 
134 DATA 7,103,123,214,32 
136 DATA 111,48,4,124,214 
138 DATA 8,103,6,8,197 
140 DATA 213,229,58,83,255 









* 


En el programa 3 se introduciría 
31000 si se tiene I6K o las 51200 
si tiene 48 K. Pero no hay ningún 
problema en utilizar otras direc¬ 
ciones libres. Veamos esto en deta¬ 
lle. 


Cómo cargar el programa 

El programa 3 carga el código 
máquina en la memoria, a partir 
de la dirección “L 7 ’, cuyo valor se 


obtiene en el INPUT de la línea 
200 . 

Si tiene 48 K puede colocar el 
programa en una dirección alta. 
Teclee CLEAR L, siendo "L” el 
valor de la dirección en que desee 
colocarlo menos uno, para indicar 
al BASIC que no debe utilizar di¬ 
recciones por encima de dicho va¬ 
lor. Por ejemplo, introduzca 
51199 si desea colocarlo a partir de 
la 51200. El programa lee los 
DATA y los graba con el nombre 


de “SMOOTH/COD”. No se 
preocupe si no entiende muy bien 
e! listado 1, si no tiene un compila¬ 
dor o si, simplemente le despreo¬ 
cupa totalmente el código máqui¬ 
na. Los DATA del programa 3 
contienen el código máquina para 
que pueda ver los efectos gráficos e 
incorporarlos a sus futuros progra¬ 
mas, aunque sea la primera vez 
que oye hablar del código máqui¬ 
na. 

No se preocupe demasiado si co- 


1+8 DATA 71,26,119,38,44 
1++ OATA 16,260,228,209,107 
148 OATA 98,20,193,16,2¿5 
148 DATA 193,209,lé,203,58 
160 DATA 83,¿55,71,04,0 
152 DATA 44,15,251,193,121 
154 DATA 61,79,32,20,237 
156 DATA 91,77,£55,123,214 
158 DRTR 32,95,48,4,122 
lb0 DRTh 214,8,87,237.83 
162 DRTfl 77,¿55,14,8,Í97 
164 DRTR 195,144,252,237,91 
166 DRTfl 77,255,58,83,255 
168 DRTR 71,197,24,2,197 
170 DRTR 19,213,38,0,68 
172 DRTR 31,255,71,4,197 
DRTR 24,11,197,123,198 
176 DRTR 32,95,46,4,12¿ 

178 DRTR 198,8,67,122,230 
180 DRTR 248,87,6,8,24 
182 DRTR 1,20,108,26,103 
184 DRTR 125,18,16,248,193 
186 DRTR 16,¿26,209.193,16 
188 DRTR 209,193,121,60,79 
190 DRTR 214,16,32,20,237 
192 DRTR 91,77,255,123,198 
194 DRTR 32,95,48,4,122 
196 DRTR 198,8,87,237.63 
198 DRTR 77,¿56,14,8,197 
200 DRTR 195,144,252,56,60 

202 DRTR 255,203,39,203,39 
204 DRTR 203,39,203,39,203 
206 DRTfl 39,38,¿56,46,79 

203 DRTR 134,50,77,255,58 
210 DRTR 80,255,230,24,198 
212 DRTR 64,50,78,255,201 


‘CODE 


PROGRAMA 5 

i Sb E ?8 B88 0B: L0BD 

4 POKE 85355,0: POKE 65356,25 

2 

5 POKE 66166,DELRY 

6 POKE 65361,MEIGHT 

7 POKE 66363 , LENGTH 
6 POKE 65360,Y 

9 POKE 65389,X 

10 LET M«USR 64612 

11 RETURN 

12 REM--- 


13 REM Secuencia movimiento 

14 REM - 


17 POKE 64512,20«4: 

fd ia 

0 


PEM iZ qu i * 
POKE 64513,20 #4+3: REM a bej 


19 POKE 64514,20*4 + 1: REM de re 
Cha 

29 POKE 64515,20*4t2: REM arri 

ba 

21 POKE 64516,0 

22 RETURN 

23 REM.. 

26 POKE 64512,5*32+3: REM abaj 

o 

26 POKE 64513,3*32: REM izquie 
r da 

27 POKE 64514,6*32+1: REM defe 

Cha 

28 POKE 64515,3*32: REM izquie 
r da 

29 POKE 64516,5*32+2: REM arri 
ba <3 salto*) 

30 POKE 64517,0 

31 RETURN 

32 REM-*- 

33 REM Adicionales secuencias 

34 REM de movimiento 

199 REM ---- 

200 BOROER 5 

201 PRINT AT 10,10;"*" 

203 LET LENGTH»4: LET HEIGHTs4 

204 LET Y«10: LET X*3 

205 LET DELRY*20 

206 00 5UB 17: QO SU8 4 

208 REM ----------- 

209 PAUSE 50: CLS : LIST 201 

210 LET LENOTM-15: LET HEIOMT-5 

211 LET Y«7: LET X*10 

212 LET DELAY «1 

214 OO SUB 25: 00 SUB 4 

216 PAUSE 30: 00 TO 214 























mete algún error en los DATA, ya 
que el programa introduce la lla¬ 
mada checksum o prueba de la 
suma. El valor de “c” de 13017 de 
la línea 270 corresponde a la suma 
de todos los valores contenidos en 
los DATA. No es un sistema infa¬ 
lible pero reduce grandemente los 
errores. Cuando aparezca el men¬ 
saje “Todo grabado... por si acaso” 
podrá guardar el programa. 

Si tiene 16K lo puede colocar en 
la dirección 3 1670. Análogamen¬ 
te, teclee CLEAR; es una buena 
práctica para evitar desagradables 
disgustos. 

El movimiento que puede hacer 
mediante BASIC con la instruc¬ 
ción 

PRINT INK 8: PAPER 8; 
OVER 1; AT y;x;CHR$C 

se sustituye ahora por una nueva 
instrucción: 

RANDOMÍZE x AND y=c + 
USR d 

donde “x” e “y” son las coordena¬ 
das horizontales y verticales, “c” 
es el código ASCII de un carácter y 
“d” es la dirección donde guardó 
la rutina. Asi 

RANDOMIZE 0 AND 175=65 + 
USR 64500 

colocará la letra “A” (carácter 65) 
en la esquina superior izquierda de 
la pantalla, si guardó la rutina a 
partir de la dirección 64500. 
RANDOMIZE en realidad es una 
“variable muda” que retiene el re¬ 
sultado de la llamada USR a códi¬ 
go máquina. Si se introduce en un 
programa que utilice números 
aleatorios, deberá reemplazar 
RANDOMIZE por otra variable: 

LET muda=¿0 AND 175=65 + USR 
64500 

Por supuesto, puede utilizar va¬ 
riables para indicar el movimien¬ 
to: 

RANDOMIZE xpos + xdir AND 
ypos-ydir=CODE + USR 

move- 

La rutina chequea los datos in¬ 
troducidos antes de la USR. Si hay 
un número de datos distinto de 3, 
aparecerá un mensaje de error. Es 
imprescindible utilizar AND y los 


signos “=” y tal y como se 
muestra en el ejemplo. Si utiliza 
cálculos más complejos que la 
suma, resta, multiplicación y divi¬ 
sión, colóquelos entre paréntesis, 
para que puedan ser distinguidos 
perfectamente por el ordenador. 

La rutina es bastante completa 
en cuanto a ia detección de errores 
se refiere, no permitiendo coorde¬ 
nadas inferiores a 7 (ya que cada 
carácter se compone de 8 líneas). 
Utilizando las coordenadas 0,6 se 
produce la impresión en la coorde¬ 
nada “y-l”. Si se da un valor me¬ 
nor de 7 o mayor que 175 para el 
eje “y”, se producirá el mensaje 

LISTADO 1: Rutina en código máquina. 


"Integer oui ofrange". En el caso 
de sobrepasar el eje “x” con valo¬ 
res superiores a 248, simplemente 
aparecerá por el otro extremo de la 
pantalla. Los valores decimales se 
redondean al dígito más próximo. 

Un ejemplo vale más 
que mil palabras 

El programa 2 es un ejemplo de 
cómo utilizar esta rutina. Una pe¬ 
lota rebota a través de las cuatro 
paredes de su televisor a diferente 
velocidad. Se utiliza para ello la 
instrucción “LET d=” en vez de 
RANDOMIZE, para no interrum¬ 
pir la secuencia de generación de 


FDE8 


1320* 


ÜRG 

65000 



1330 

I 


“Fin del Stack" 

FDE8 

2A655C 

1340 

MOVER LD 

HL, (STACK) 

FDEB 

ES 

1350 


PUSH 

HL 



1360 

1 


“3 números en el Stack?" 

FDEC 

EB 

1370 


EX 

DE,HL 

FDED 

2A635C 

1380 


LD 

HL, (STBOT) 

FOFO 

01WF00 

1390 


LD 

BC*I5 

FDF3 

09 

1400 


ADD 

HL,BC 

FDF4 

ED52 

1410 


SBC 

HL DE 

FDF6 

2802 

1420 


JR 

Z,FCODE 



1430 

i 


“3 parámetros'* 

FDF8 

:cf 

1440 


RST 

8 

FDF9 

; 19 

1450 


DEFB 

25 



1460 

FCODE 


“Localiza el código del carácter'* 

FOFA 

CDA22D 

1470 

CALE 

POPA 



(480 

J 


“Divide en grupos" 

“0-127 ASCII" 



1490 

t 




1500 



“128-143 bloque caracteres 
gráficos" 1 



1510 

V 


“144-255 gráficos definidos por el 
usuario" 

FDFD 

' FE80 

1520 


CP 

128 

FDFF 

38ÜB 

1530 


JR 

C.ASCI1 

FE0I 

47 

1540 


LD 

ELA 

FEÜ2 

D69Ü 

1550 


SUB 

144 

FE04 

3813 

1560 


JR 

C, BLOCK 



1570 

V 


“Debe ser un UDG” 

FEÜÓ 

ED5B7B5C 

1580 


LD 

DE, (UDGS) 

FEO A 

1804 

1590 


JR 

INDEX 



1600 

i 



FE0C 

ÉD5B3Ó5C 

1610 

ASCII 

LD 

DE, (CHARS) 



1620 

i 


“Localización carácter" 

FE1Q 

2600 

1630 

INDEX 

LD 

H,0 

FE12 

6F 

1640 


LD 

L,A 

FE13 

29 

1650 


ADD 

HL,HL 

FE 14 

29 

1660 


ADD 

HLHL 

FE 15 

29 

1670 


ADD 

HL,HL 

FEló 

19 

1680 


ADD 

HL,DE 

GFONT 

FE17 

1806 

1690 


JR 



1700 




FE19 

CD3SOB 

1710 

BLOCK 

CALL 

MAKEB 

FEIC 

2192SC 

1720 


LD 

HL3LKCH 

FE1F 

ES 

1730 

GFONT 

PUSH 

HL 

FE20 

DDE1 

1740 


POP 

IX 



1750 

? 


“Coordenada Y” 

FE22 

CDA22D 

1760 


CALL 

POP A 

FE25 

67 

1770 


LD 

H,A 



1780 



“Coordenada X” 

FE26 

ES 

1790 


PUSH 

HL 

FE27 

CDA22D 

1800 


CALL 

POP A 

! FE2A 

El 

1810 


POP 

HL 

FE2R 

6F 

1820 


LD 

L,A 

FE2C : 

¡ ES 

1830 


PUSH 

HL 















I 



La imagen <ie La derecha muestra el movimiento pixei a pixel, frente al clásico moví miento 
que se ilustra en Ja imagen de la izquierda. 




1840 


“Procesar 8 líneas” 

FE2D 

OEÜ8 

1850 

LD 

C,8 

FE2K 

El 

1860 

PUNE POP 

HL 



1870 

'I 

“Siguiente línea” 

rao 

25 

(880 

DEC 

H 

FE31 

E5 

1890 

PUSH 

HL 

FE32 

24 

1900 

INC 

H 



1910 


“Conversión coordenadas en H,L" 



1920 


“A la dirección en HL y A” 

FE33 

C5 

1930 

PUSH 

BC 

FE34 

44 

1940 

LD 

B,H 

FE35 

4D 

1950 

LD 

C,L 

FE36 

CDAA2 2 

1960 

CALL 

PIXEL 

FE39 

Cl 

1970 

POP 

BC 



1980 

i 

“Copiar bit en B” 

FE3A 

47 

1990 

LD 

B,A 



2000 


“Comprobar localización 





carácter” 

FE3B 

AF 

2010 

XOR 

A 

FE3C 

BO 

2020 

GR 

B 



2030 


“Lectura de FONT” 

FE3D 

DD7EÜQ 

2040 

LD 

A,(IX+0) 



2050 

l 

“Almacenar NOW” 

FE40 

28J l 

2060 

JR 

Z,STORE 



[ 2070 

i 

“Generar máscara 16 bit” 

FE42 

EB 

2080 

EX 

DE,HL 

FE43 

2600 

2090 

LD 

H,0 

FE45 

6F 

2100 

LD 

L t A 



2110 

i 

“Realización cuentas” 

FE46 

3E08 

2120 

LD 

A,8 

FE48 

m 

2130 

SUB 

B 

FE49 

47 

2140 

LD 

B,A 

FE4A 

29 

2150 

SHIFT ADD 

HL,HL 

FE4B 

10FD 

2160 

DJNZ 

SHIFT 



2170 


“Colocar máscara en OF” 

FE4D 

EB 

! 2180 

EX 

DE,HL 



2190 

? 

“Mezclaren pantalla” 

FE4E 

7E 

2200 

LD 

A,(HL) 

FE4F 

AA 

¡ 2210 

XOR 

D 

PESO 

77 

2220 

LD 

(HL),A 

FE51 

23 

2230 

INC 

HL 

FE52 

7B 

2240 

LD 

A,E 

FE53 

AE 

2250 

STQRI XOR 

(HL) 

FE54 

77 

2260 

LD 

(HL),A 



2270 

* 

“Avánce” 

FE55 

DD23 

2280 

INC 

IX 



2290 


“Contador líneas realizadas” 

FE57 

OD 

2300 

DEC 

C 

FE58 

20D5 

2310 

JR 

NZ, PLINE 



2320 

i 


FES A 

EJ 

2330 

POP 

HL 

FE5B 

El 

2340 

POP 

HL 

FESC 

22655C 

2350 

LD 

(STACKLHL 

FE5F 

C9 

2360 

RET 




2370 

END 



números aleatorios que controla el 
movimiento de la pelota. El listado 
es corto y sencillo, pero asegúrese 
de introducir comas en la línea 
330, en vez de punto y coma. 

En el código máquina siempre 
está activado OVER 1, a fin de po¬ 
der borrar un carácter sin destruir 
la imagen que se encuentre “de¬ 
trás”. Los caracteres toman el co¬ 
lor de INK, evitándose innecesa¬ 
rias complicaciones para reponer 
los carácteres superpuestos. 

El Spectrum normalmente utili¬ 
za los códigos 165 a 255 para las 
palabras de comando clave, como 
THEN, PRINT... etc. No hay nin¬ 
guna necesidad de útil izar estos có¬ 
digos por pantalla, ya que esta ru¬ 
tina permite definir 91 caracteres 
gráficos. Junto con los 21 estándar, 
con ello se logra la increíble cifra 
de 122 caracteres. Estos nuevos ca¬ 
racteres se encuentran ubicados a 
continuación de los clásicos, lo 
que significa que tendrá que “ex¬ 
pandir” el área de UDG antes de 
definir nuevos caracteres. Para 
48K puede hacerlo mediante la 
instrucción 

CLEAR 64559 : POKE 23675, 48 
: POKE 23676,252 

con ello se permite que la variable 
CHARS pueda trabajar con 728 
bytes adicionales (91 x 8). Para 
I6K también se puede lograr, me¬ 
diante 

CLEAR 31669 : POKE 23675, 48 
: POKE 23676,124 

Después, ya podrá definir sus 
caracteres gráficos de la “a” a la 
“u” e incluso por encima de este 
carácter. Los carácteres adiciona¬ 
les también siguen en la clásica su¬ 
cesión de 8 bytes. Ya que el carác¬ 
ter gráfico “a” representa el código 
144, se puede encontrar la defini¬ 
ción del carácter con el código 
"N”, mediante la siguiente expre¬ 
sión general: 

PRINT USR “a” + 8 * (N-l 44) 


Fíjese en los trucos 


Si dispone de un compilador o 
de un cargador Assembler, puede 
introducir el programa 1. Pero en 
cualquier caso le servirá para ver 






























































algunos interesantes trucos de pro¬ 
gramación en código máquina. 

Comienza el listado con la defi¬ 
nición de algunas constantes que 
se utilizarán con posterioridad. 
Colocándolas al inicio del progra¬ 
ma podrán ser comprobadas y al¬ 
teradas fácilmente. Además, ello 
hace que el programa esté mejor 
estructurado y sea más fácil de 
leer. Se utilizarán tres rutinas 
ROM para acortar la longitud del 
programa y no complicarlo en ex¬ 
ceso. 

Existen tres secciones claramen¬ 
te diferenciadas. Primero los pará¬ 
metros (las coordenadas y el códi¬ 
go del carácter). Segundo, la ubica¬ 
ción del carácter definido; y final¬ 
mente la ubicación o impresión 
del carácter en pantalla. El che¬ 
queo de parámetros se evalúa por 
el Spectrum de forma simple, simi¬ 
lar a la expresión en BASIC. 

PRINT 2 + 3*4 

realizando la multiplicación antes 
de la suma. Por ello el resultado es 
14(2+ l2)yno 20(5x4). 

Otra de las características del 
programa es la forma en que apro¬ 
vecha el modo de operar del BA¬ 
SIC, obteniendo previamente el 
valor de las coordenadas y del có¬ 
digo del carácter, antes de realizar 
la llamada a código máquina 
(USR). Estos tres datos se almace¬ 
nan en un stack temporal durante 
la llamada USR. Así se logra una 
fácil lectura mediante BASIC para 
realizar las manipulaciones nece¬ 
sarias en código máquina antes de 
volver de nuevo al BASIC. Un 
buen método a tener en cuenta a la 
hora de introducir datos, que me¬ 
diante BASIC se puede realizar 
con gran facilidad, sin tener que 
recurrir a los farragosos manejos 
de PEEK y POKE. 

Repasemos el proceso 

RANDOMIZE x AND y=c + USR 
a 

Mediante BASIC se realiza pri¬ 
mero la suma, después la compa¬ 
ración de igualdad y, finalmente, 


la expresión X AND Y. (Ver ma¬ 
nual del Spectrum, libro pequeño, 
pág. 12). 

El stack al que hacíamos alu¬ 
sión, sirve para almacenar estos 
valores, utilizando para ello dos 
variables del sistema. Las líneas 
comprendidas entre la 1340 y 
1450, se utilizan para verificar que 
este stack contiene 15 bytes en el 
momento en que se va a ejecutar la 
instrucción USR, es decir, que han 
sido almacenados los tres valores 
(5 bytes por valor). Si no están es¬ 
tos datos, la rutina dará el mensaje 
de error, generado por las líneas 
1440 y 1450. 

Los caracteres han de pdsar 
un examen muy riguroso... 

I a rutina ROM llamada 
POP-A, se utiliza para colocar un 
número del stack en el registro 
“A”. Las líneas 1470 a 1560 reco¬ 
gen el código del carácter para co¬ 
locarlo el último en el stack. Des¬ 
pués se comprueba si se trata de un 
carácter gráfico, un carácter gráfi¬ 
co definido por el usuario o un ca¬ 
rácter del código ASCII. 

Los caracteres gráficos estándar 
no están definidos en la ROM, ge¬ 
nerándose por la rutina MAKEB 
que coloca el carácter especificado 
en el registro "B”, dirección 
BLKCH. En el caso de ser un códi¬ 
go ASCII o UDG, la rutina locali¬ 
za el comienzo de la dirección en 
las variables del sistema (UDGS 
apunta hacia los gráficos definidos 
y CHARS hacia los símbolos AS¬ 
CII). 

E! código se multiplica por 8 (ya 
que cada definición requiere 8 by¬ 
tes) y la dirección es el resultado de 
añadir la dirección inicial al dato 
que da esta multiplicación. 
GFONT coloca la dirección de di¬ 
cho carácter en el registro IX para 
mayor seguridad. 

POP_A se utiliza otras dos veces 
para tomar los valores de los ejes X 
e Y (coordenadas) y conocer e! lu¬ 
gar de la impresión de datos. El bu¬ 


cle PLINE posicionael carácter en 
la memoria de video, una línea 
cada vez, usando el registro C para 
contar las líneas. 

Cada linea de impresión del 
Spectrum corresponde a 32 bytes 
de memoria de video. El contenido 
de esta memoria determina lo que 
se va a imprimir. La rutina clásica 
PRINT utiliza un byte por carácter 
en cada línea, lo que quiere decir 
que los caracteres no pueden im¬ 
primirse una parte en un byte y el 
resto en el siguiente. Por ello se 
producen los “saltos” carácter a 
carácter de que hablábamos al ini¬ 
cio de este artículo. Pero no es esto 
lo que ocurre con esta rutina, que 
permite guardar la información en 
dos bytes. El código del carácter se 
coloca al final del registro HL para 
manipularlos entre H y L. La ins¬ 
trucción ADD HL,HL permite el 
resto: cada vez que se añade el va¬ 
lor binario a sí mismo, se desplaza 
el contenido del registro hacia la 
izquierda, debido a que cada co¬ 
lumna tiene dos veces el valor de 
uno de su derecha. 

Con STORE y XOR se mezclan 
las líneas en pantalla. El programa 
itera en el bucle PLINE hasta que 
las ocho líneas han sido reimpre¬ 
sas. 


Ahora es su turno 

Para finalizar con este tema, le 
vamos a proponer un cambio de 
papeles. Los programas 4 y 5 son 
independientes de los anteriores e 
ilustran un efecto similar. Primero 
habrá de introducir el programa 4 
para cargar el código máquina y 
luego podrá visualizar sus sorpren¬ 
dentes efectos con el programa 5. 
Le aconsejamos que no se lo pierda 
y que sea usted quien comente este 
programa en un próximo número. 
¿Se atreve a escribirnos un folio 
dándonos su opinión? Sortearemos 
diversos juegos entre todas las con¬ 
testaciones recibidas y un premio 
de 6.000 pías, para la carta que pu¬ 
bliquemos, Esperamos sus cartas. 







UNA RUTINA, POR FAVOR 



La ROM incorpora una amplia 
variedad de rutinas- El uso adecua¬ 
do de las mismas permitirá un im¬ 
portante ahorro de tiempo y me¬ 
moria. Si quiere aprovechar al má¬ 
ximo su Spectrum, lo mejor será 
entender perfectamente el lenguaje 
ensamblador del Chip Z30. Pero si 
todavía no está familiarizado con 
los detalles internos del Spectrum. 
todavía está a tiempo para benefi¬ 
ciarse de las rutinas que existen en 
la ROM. 

Utilizando llamadas (CALLS) a 
la ROM del Spectrum de 16 Khy- 
tes del ¡ntcríate I. podrá obtener 
unos resultados sorprendentes. 
Veamos cómo utilizar las variables 
del sistema en nuestro beneficio. 

Podrá ampliar la ROM o la 
RAM (si tiene !6 Khytes) indistin¬ 
tamente. Pero esto son palabras 
mayores, y este breve artículo no 
pretende entrar en esta materia 
que por sí sola llenaría un libro. 

Lo que sí pretendemos es darle 
suficiente información, especial¬ 
mente para los “nuevos programa- 
dores" que deseen aprovecharse de 
las ventajas del código máquina, 
sin tener por ello que dominar este 
lenguaje. 

A menos que le agrade la idea de 
introducir el código máquina en 
códigos mediante los POKE co¬ 
rrespondientes, le aconsejamos 
utilice un compilador (y puestos a 
recomendar, actualmente el más 
completo es el de Hisoft). 


Mamadas (CALLS) de interés 

Impresión: RST 16 (10H) 

El carácter cuyo código se en¬ 
cuentra en el registro A será im¬ 
preso en el canal que se encuentre 
abierto en ese momento. También 
se puede utilizar en los códigos de 
impresión, como TAB. INK. 
O VER, etcétera. 

La apertura y cerrado de los ca¬ 
nales para la utilización de esta va¬ 
riable se realiza mediante la llama¬ 
da CALL 5633 (1601 H). De esta 
forma se consigue la salida del 


RST 16 (10H) al canal especifica¬ 
do en el registro A. Normalmente 
A = 2 es el código de i mpresión por 
pantalla, A = 3 utiliza la impreso¬ 
ra, v A = 1 imprime en la parte in¬ 
ferior de la pantalla. También se 
pueden utilizar otros canales para 
la comunicación con los micradri - 
ves, la red de área local (LOCAL 
AREA NETWORK) u otros peri¬ 
féricos. 

También podría utilizar un ca¬ 


nal para controlar un ínter face con 
el Kempston u otros interfaces 
Centronics. 

Entérese si se presiona “BREAK”: 
CALL 3020 (1F54H) 

Esta llamada devuelve eí carry 
flag activado si no se ha presiona¬ 
do BREAK o desactivado si se pre¬ 
sionó. Observe que esta llamada 
verifica si CAPS SHIFT y BREAK 
fueron presionados de forma si- 





























multánea. Si sólo desea chequear 
el uso de BREAK, puede utilizar: 

LDA.7FH 
IN A(FEH) 

RRA 

JPNC,PRESSED 


Imprimiendo mediante el RST 
16 (I0H): CALL 8545 (DD9H) 

Para utilizar esta rutina el regis¬ 
tro B debe tener el número de línea 
de la pantalla donde se desea reali¬ 
zar la impresión. Por ejemplo, B 
=24 indicaría la última linea de la 
pantalla, B = 1. análogamente, se¬ 
ria el inicio de la pantalla. 

Desgraciadamente no pueden 
utilizarse las líneas 23 y 24, por lo 
que tendría que fijar en 1 el canal 
de salida RST 16 < IOH), y utilizar 
las dos líneas superiores del final 
de la pantalla, 

C es 33 menos el número de la 
columna. Así, C = 33 significa la 
primera columna de la izquierda y 
C = 2 la primera columna de la de¬ 
recha. Esta llamada automática¬ 
mente actualiza las variables del 
sistema para las distintas posicio¬ 
nes de PRINT en las que el canal 


que se utiliza se activa mediante la 
llamada 5633 (1601H). Tenga cui¬ 
dado al utilizar la última línea de 
la pantalla (PAPER), ya que si im¬ 
prime en el último carácter apare¬ 
cerá el mensaje SCROLL. Esto 
conlleva una vuelta al BASIC si la 
contestación es “n” o BREAK. 

Además, cualquier intento de 
imprimir en el canal I causará el 
SCROLL de la parte inferior de la 
pantalla (BORDER) cuando ser 
haya llenado el espacio que utiliza 
la variable DF 52 (23659). Esto 
puede ocasionar algunas sorpresas. 
Obviamente si utiliza la impresora 
no necesita especificar un código 
de línea, por lo que no utilizará el 
registro B. 


Limpiando la pantalla: 

CALL 3438 (DGEH) 

Con esta llamada limpiará toda 
la pantalla, eliminándose Ja infor¬ 
mación sobre los atributos de la 
variable ATTR P para el PAPER 
y BOARDCR para el BORDER 
(23693 y 23624 respectivamente). 
Le remitimos al manual para 
mayor información. 


Limpiando la parte inferior 
de la pantalla (BORDER): 

CALL 3438 (D6EH) 

Especialmente útil para la entra¬ 
da de datos, con esta llamada se 
elimina la información existente 
en el BORDER. Observe que tas 
dos rutinas anteriores inicializan a 
2 la variable DF 52 y pueden alte¬ 
rar el canal utilizado por RST 16 
(10H). de manera que esto habrá 
que reinicial izarlo. 

SCROLL de la pantalla: 

CALL 3582 (DFEH) 

Esta llamada sólo realiza el 
SCROLL de una línea, pero no 
afecta a la posición de impresión, 
por lo que si continuamente impri¬ 
me en la misma línea y realiza el 
SCROLL al final de cada línea, le 
parecerá estar escribiendo en una 
máquina de escribir, escribiendo 
en la última linea y viendo cómo 
se desplaza el texto hacia arriba a 
medida que vaya escribiendo. 


Dibujando en la pantalla: 

CALL 8933 (22E5H) 

Mediante esta llamada podrá 
realizar el PLOT del punto direc- 
cionado por los registros B (Y de D 
a 175) y C (X de D a 255). Los co¬ 
lores correspondientes a !NK y 
PAPER pueden activarse previa¬ 
mente cargando en las variables 
del sistema los atributos necesa¬ 
rios. 

OVER 1 se puede activar me¬ 
diante SET Q.(IY + 87) o desacti¬ 
var mediante RES 0,(IY + 87), y se 
puede eliminar cualquier punto 
con SET 2.(1 Y + 87). Observe que 
no hay ningún problema en reali¬ 
zar PLOTS en el BORDER, lo 
cual puede evitarse mediante la 
llamada 5633 (1601H). 

La próxima vez, antes de sentar¬ 
se en su ordenador con un enorme 
listado, piense en la posibilidad de 
utilizar lo ya hecho, y la ROM 
conserva gran cantidad de rutinas, 
algunas de las cuales pueden utili¬ 
zarse directamente sin ningún pro¬ 
blema. Con un poco de entrena¬ 
miento verá cómo la programa¬ 
ción quedará reducida a la utiliza¬ 
ción de rutinas o a la realización 
de las mismas, en el peor de los ca¬ 
sos. 






























Construya 
su propio 


Interface Centronics 


U no de los problemas que se 
presenta a todo aquel que 

_desea acoplar una impre- 

sora a un ordenador es el 
de la conexión de ambos 
aparatos. Algunos ordenadores in¬ 
corporan una salida para este fin. 
Sin embargo, este no es el caso del 
ZX-Spectrum, con lo cual, si que¬ 
remos adaptar dicho periférico a 
nuestro ordenador, estamos obli¬ 
gados a usar un “interface”. 

Para imprimir cierto mensaje en 
papel (o para escribir información 
en disco, establecer comunicación 
con un ordenador auxiliar...) nece¬ 
sitamos dialogar de algún modo 
con el aparato que hay al otro lado 

I 


de la línea. Diferentes plantea¬ 
mientos del problema han llevado 
a soluciones también diferentes. 
Básicamente, todos coinciden en 
asignar un código a cada carácter. 
También serán necesarios códigos 
de control, como por ejemplo, la 
orden de efectuar un retomo del 
carro o de saltar a la siguiente pági¬ 
na. 

Lo que diferencia a unos siste¬ 
mas de otros son las claves adopta¬ 
das y las maneras de transmitir la 
información. En cuanto al primer 
problema, el código más aceptado 
es el ASCII (American Standar 
Codefor Information Interchange, 
código estándar americano para el 


intercambio de información), que 
como todos los lectores saben, es el 
que usa el Spectrum (con ligeras 
variaciones). 

En cuanto a las maneras de rea¬ 
lizar la información, existen dos 
opciones, ¡a transmisión SERIE y 
PARALELO. 

La transmisión SERIE hace uso 
de un único cable o línea. La infor¬ 
mación se transfiere con los bits 
puestos en “fila india” a una velo¬ 
cidad constante conocida como 
“baud rate”, que se mide en bau- 
dios (bits/segundo). Un ejemplo 
claro de transmisión en serie lo 
constituye el almacenamiento en 
cintas de cassette. El estándar más 





















conocido lo constituye el famo¬ 
so RS-232 (no confundir con R2- 
D2). 

La información en PARALELO 
es más intuitiva a primera vista, ya 
que transmite las palabras de 8 bits 
(bytes u ocíelos) simultáneamente 
por 8 lineas independientes (de 
aquí el nombre). Además, hace uso 
de otras líneas especiales de con¬ 
trol ÍACK y STROBE, cuya mi¬ 
sión se explicará más adelante). En 
general, este es el sistema preferi¬ 
do, ya que es más flexible —no es 
síncrono, es decir, la información 
no está codificada en el tiempo, 
como ocurre con el tipo SERIE—, 
y menos sujeta a error. El CEN¬ 


TRONICS es sin duda el estándar 
más difundido. 

Para comprender cómo hemos 
resuelto el problema, vamos a ex¬ 
plicar cómo se realiza el transvase 
de información. 

— En primer lugar el ordenador 
informa a nuestro “interface” del 
código a enviar. El “interface” en¬ 
tonces mantiene dicha informa¬ 
ción en las líneas de datos. 

— Este es el momento de infor¬ 
mar a nuestra impresora de que la 
información está disponible en el 
bus. Para ello se activa la linea 
STROBE. Entonces el periférico 
lee la información y opera con ella 
según su condición. 


COMPONENTES 


RESISTENCIAS 
R1,R2 3k3 

CONDENSADORES 
C1,2,3 lOn cerámica 

SEMICONDUCTORES 
IC1 74ÉS30 

IC2,3 74LS75 

IC4 74LS11 

IC5 74LS00 

IC6 74LSI26 
IC7 74LS14 

IC8 7805 


[PROGRAMA 1 


m 

000411 

00002 

;**»#*****£*«»******»# 
;*« SUERUTINA DE ft« 

6AC4 

00003 

;## 

IMPRESION ** 

SAE4 

00004 

j a****#***#***#**#»*»# 

8AE4 

00006 




8AÉ4 

00006 


ORO 

60000 

C358 

00007 




C3S* D3FF 

00008 

PRINT 

OUT 

(265),A 

0362 3E80 

00000 


LD 

A,10000000 

C354 D30F 

00010 


OUT 

b 

(223),A 

C386 DBOF 

00011 

LOOP 

XN 

A, (223) 

C3S6 E601 

00012 


ANO 

1 

C35A aSFA 

00013 


JR 

2,LOOP 

C35C C9 

00014 


RET 



00000 TOTAL ERRÜRS 

LOOP 0356 

PRINT . Q35® 


PROGRAMA 2 



sr . Bff SS!**i a SW a giK!NT 

72) THEN 00 T0 7316 
1020 RETURN 

PROGRAMA 3 “ 

100 LET fl*a H Todo»P*etrum,i« riv 
dedicad* n zx-Spactcum ,, +CH 
R* 10: REM CHR0 10 a» ti C Odigo 
d« mprction y r«tormo de carro 
110 POR Iml TO LEN R«: LET RaCO 
DE R 0(I): 00 SUE 1000: NEXT I 
120 00 Tü 110 

1000 ÜUT 265,a: OUT 223,128 
1010 LET b»IN 883: IP ba8#INT (b 
/8) TMEN 00 TO 7310 
1020 RETURN 

^■i PROGRAMA 4 

^000 RESTORE 7001 

7001 ORTR 58,129,92,214,164,71.3 
3,149,0,125,230,126,36,40,250,16 
,248,68,77,201 

7002 LET RUT.23531: POR i-RUT TO 


RUT + 19: 

X 

7010 DEP 

«4* 1) 

7020 ORTR 


RERD 0: POKE 1,0: NEXT 
PN P (Li) aPEEK U+266#PEEK 


7030 
7040 
75) : 

75 ’ 

7050 LET 
THEN 00 
7100 POR 
3827)-1: 
7110 LET 
1) : LET 


0,23896,7200,7260 

-- IINT ,T< 


RERO LÓNO , OUI^ , LPRÍNT , TOKEN 
INPUT “Numaro da columna» í 


M0: 1P M0a"" THEN LET M|a' 


MRXLaURL M|: XP MRXL >60 
TO 7040 

N.PN P (83638) TO PN P(2 
DIM B| (4) : LET LONO.l 
NUh.256*PEEK N+PEEK <N + 
R0aSTR0 NUM: LET 60(5-LE 


IP NUM >.7000 RND 
LET NaN+3+PEEK (N 
NEXT N: BEEP 


LET R 
NEXT J 
LPRINT 


COOE 
LE 


T 


N Rf TO 4)*R«: 

NUM<«7320 THEN 
+8)+256#PEEK (N+3) 

1,40: 5T0P 
7120 POR Jal TO 4: 

<ü>: 00 6UB LPRINT: 

RaCOOE " 00 SUB 

7138 LET NaN+4 
7135 LET RaPCEK N 

7140 IP Ra13 THEN LET Ral0: 00 5 
UB LPRINT: NEXT N: STOP 
7150 IP fial4 TMEN LET NaN+6 

TO 7135 

7160 LET R0aCHR| R; IP fija* 1 
OR Ría- RNO " OR Al-" STOP 
R*.“ STEP " OR fila 17 TO " OR 
" THEN " THEN LET RaCOOE " 

SUB LPRINT: LET RaCOOE R« 

IP R >154 THEN 00 8UB TOKEN: 
N.N+1: 00 TO 7136 
IP R >31 THEN 00 SUB LPRINT 
LET NaNal: 00 TO 7135 
REM UiiiijgB 
PRINT CHRt (R+3«(Ral0) ) ¡ : Q 
7300: IP Ral0 TMEN RETURN 


00 

OR " 
" OR 

*8S 


7170 
LET 
7180 
7190 
7200 
7210 
0 SUB 


7220 LET L0N9aLÚNQ +1: IP LÓNG >MR 
XL TMEN LET Ral0¡ 00 SUB 7300! L 
ET L0N0a7: POR Jal TO LONQ-1: LE 
T RaCOOE 00 SUB 7300 ¡ NEXT 

J 

7230 RETURN 
7250 REM 

7255 POKE 33f92,S85: NEXT J 
7260 POKE 23661,R: LET XaUSR RUT 
7280 LET RaPEEK I: LET IaI+1: IP 
R > 127 THEN LET RaR-12B: 00 SUB 
LPRINT; LET R-CODE " ": 00 SUB L 
PRINT: RETURN 


TDKfM 















— Cuando se acaba de proce¬ 
sarla (almacenarla o cumplirla —si 
se le ordena imprimir una línea de 
texto, por ejemplo—), activa la lí¬ 
nea de ACK (aknowledge, recono¬ 
cimiento o conformidad) para ha¬ 
cer saber al ordenador que la ha re¬ 
cibido y que puede mandar más 
información. 

Planteemos las especificaciones 
del “interlace’' que queremos dise¬ 
ñar: 

— Deberá ser capaz de memori- 
zar los datos que le envía el orde¬ 
nador principal (Hosi Computer. 
en la literatura inglesa). 


— Deberá transmitir, cuando se 
le ordene, un pulso de STROBE. 

— Será capaz de maestrear en 
todo momento la linea ACK y de 
estar dispuesto a informar al orde¬ 
nador de si se ha recibido confir¬ 
mación o no. También debe haber 
alguna forma de hacer volver al re¬ 
poso este indicador, una vez que se 
ha leído y estamos preparados para 
enviar más datos. 

— Por último, lo que es más im¬ 
portante, hemos de coordinar to¬ 
das estas funciones para hacer po¬ 
sible un manejo racional del apa¬ 
rato. El diagrama de bloques del 
circuito puede verse en la figura 1. 


El sistema adoptado para el in¬ 
tercambio de información ha sido 
el lectura/escritura en puertos de 
entrada/salida. Las razones de di¬ 
cha elección se basan en que este 
es, con diferencia, el sistema más 
sencillo v que se puede usar desde 
el BASIC. 

En la figura 2 se muestran los 
cronogramas de los ciclos de entra¬ 
da/salida. NOTA: Muchas de las 
líneas de control del Z-80 usan ló¬ 
gica negativa, esto es. el estado ac¬ 
tivo corresponde al’O lógico. Esto 
se indica colocando una barra so¬ 
bre el nombre asignado a la línea. 
Esto signi fica que si, por ejemplo, la 
línea WR ( Write, escritura) está a 0, 


7290 GO SUS LPRINT : GO TQ 7260 
7300 ÜlíT 265, «i OUT 223,128 
7310 LET B*IN 223: IF B»2#INT (6 
/2) THEN GO T0 7310 
7320 RETURN 


PROGRAMA 5 


egi 

00001 j ******************** 

8E41 

00002 , ***** COPV ***** 

6E41 

00003 ; ******************** 

8E41 

00004 



8E41 

00009 ; (B luí» h. 

6RUQAR0LA5 

8E41 

00006 



3E41 

00007 



Í00M 

00008 LF 

EQU 

13 

SE41 

00009 



3E41 

00010 

ORO 

62000 

cese 

00011 



C828 217FCB 

00012 

LO 

NL, DftTfll 

CB23 06Í7 

00013 

LO 

6,7 

Cuco 7E 

00014 INIC 

LO 

A, (HU 

GB26 C072CB 

00015 

CALL 

PRINT 

CB29 23 

00016 

INC 

HL 

CB2A 10F9 

00017 

0JN2 

INIC 

CB2C 

00018 



CB2C 210040 

00019 

LO 

HL , 4008h 

CB2F 0E08 

90020 LQ0P4 

LO 

C, 08 

CS31 1620 

00021 LOOP3B 

LO 

0,32 

GB33 £6 

0Ó022 L0ÜP3 

PU3H 

HL 

CB34 0608 

00023 

LO 

8,88 

CB36 09 

00824 LOOP! 

EXX 


CB37 El 

00026 

POP 

HL 

CB38 E6 

00026 

PUSH 

HL 

C839 0608 

00027 

LO 

6,08 

CB3B CB06 

00028 L00P2 

RLC 

(HL) 

CB30 17 

00029 

RLR 


CB3E 24 

0003Í 

INC 

H 

0B3F 10FR 

00031 

OJNZ 

LOOPS 

CB41 CÜ72CB 

00032 

CALL 

PRINT 

CB44 09 

00833 

EXX 


CB45 10EF 

00834 

OJNZ 

LOOPl 

CB47 

00035 



CB47 El 

00036 

POP 

HL 

CB48 23 

1003? 

INC 

HL 

CB49 16 

80833 

DEC 

0 

CB4R 20E7 

00839 

Jft 

NZ,LOOPS 

CB4C 

80040 



CB4C 3E0A 

00841 

LO 

fi,LF 

CB4E CD72C8 

80842 

CflLL 

PRINT 

CBS1 

00043 



CB51 

80044 ¡VOtVt 

r a BASIC at 


CB61 

00046 

;apretar BREAN 

CB51 3E7F 

80846 


LO 

A,7Fh 

CB53 QBFE 

00847 


1N 

A,(254) 

CB55 1F 

00848 


Rftfl 

i 

CB56 00 

00840 


RET 

NC 

CB57 

00850 




CB57 

88851 

¡introducir 

COdígo 

0B57 

80062 

¡para gráfico» 

CB57 05 

80063 


PU5H 

0E 

CB58 11B2C6 

00854 


LO 

DE,DATA2 

CB5B 8684 

08855 


LO 

B, 4 

CB6D lfl 

88856 

GRAF 

LO 

A,(DE) 

CB6E C072CB 

80057 


CALL 

PRINT 

CB61 13 

80858 


INC 

DE 

CB62 18F9 

00859 


OJNZ 

GRAF 

CB64 01 

00060 


POP 

DE 

CB65 

80061 




CB65 80 

80062 


DEC 

C 

CB66 20C9 

80863 


JR 

NZ/L00P3B 

CB66 3E87 

00864 


LÜ 

A, 7 

CB6fl 64 

08865 


ADO 

fl, H 

CB6B 67 

88066 


LO 

H,fl 

C66C 3E58 

00867 


LD 

A, 88 

CB6E flC 

80868 


XÚR 

H 

CB6F C8 

80069 


RET 

Z 

CB78 1860 

00870 


JR 

L00P4 

CB72 

00071 




CB72 

80872 




CB72 03FF 

08873 

PRINT 

OUT 

(255),A 

CB74 3E60 

00074 


LD 

fl, 100830001 

CB76 D30F 

88075 


OUT 

(223),A 

CB76 DBDF 

88076 

LOOP 

IN 

A, (223) 

CB7A E681 

80877 


RN0 

1 

C67C 26Ffl 

80078 


JR 

Z,LOOP 

CB7E C9 

08070 


RET 


CB7F 

00380 




CB7F 164106 

00081 

OflTAl 

DEFB 

27,65,8 

CB62 1B4B8001 00062 

0ATA2 

0EFB 

27,75,8,1 

00000 TOTAL 

ERR0RS 




QflTfll 

CB7F 




DflTA2 

CBB2 




GRAF 

CB50 




INIC 

CB25 




LF 

000H 




LOOP 

CB78 




LOOPl 

CB36 




L0QP2 

CB3B 




L0ÜP3 

CB33 




LQQP3B 

CB31 




L00P4 

CB2F 




PRINT 

CB72 


















se está realizando la operación de 
escritura. Para ser más claros, se ha 
optado por usar todas las funcio¬ 
nes con lógica positiva. Conse¬ 
cuentemente, los valores reales de 
tensión serán los inversos. 

El lenguaje Ensamblador del 
Z-80 dispone de dos instrucciones 
muy útiles para nuestros propó¬ 


sitos. Son OUT (n),A e IN A,(n). 

OUT <n),A pone el valor de n en 
la parte baja del bus de direcciones 
y el contenido del Acumulador en 
la parte alta. El bus de datos mues¬ 
tra también el valor del registro A. 

IN A.(n) sigue la misma pauta 
en cuanto al bus de direcciones, 
pero al acabar la instrucción el re¬ 


gistro A guarda una copia del dato 
recogido en el bus (de datos, lógi¬ 
camente). 

El decodificador muestra las lí¬ 
neas A0-A4, Aó y A7. Si éstas to¬ 
man una cierta disposición, sólo 
una, la salida del decodificador, 
pasará a estado lógico “1”. De 
acuerdo con el diagrama de blo- 

















































































































































































































ques de la línea OV (Operación 
Válida), se mostrará activa al reali¬ 
zar un ciclo de lectura o escritura 
en una dirección válida, tai como 
se ve en la figura 2. La línea restan¬ 
te, la A5, nos ofrece un grado de li¬ 
bertad. En nuestro caso, el valor 
del bus de direcciones que recono¬ 
ce el decodificador, es 11X11111. 


(La X significa que el estado del bit 
5 es indiferente). Consecuente¬ 
mente, los puestos válidos serán el 
1101 lili (DF en hexadecima!, 
223 en decimal), 11111111 (FFh, 
255). 

El hecho de que puedan reali¬ 
zarse lecturas y escrituras nos ofre¬ 
ce otro grado de libertad, pudiendo 


realizar un máximo de 4 funciones 
diferentes (escritura en DF, escri¬ 
tura en FF, lectura en DF, lectura 
en FF). Sólo se hará uso de tres de 
estas funciones: 

— Si escribimos en el puerto FF 
(hacemos OUT (FFH),A), la salida 
de la puerta AND,A se pondrá a 
“1”. La entrada EÑABLE de latch 





Figura 5 1 Circuito impreso (vista posterior). 






















































































































(habilitación de entrada) se activa, 
cargando en los latches la informa¬ 
ción presente en el bus de datos 
(esto es, la información almacena¬ 
da en el registro A). Las salidas del 
iatch mantendrán dicho valor has¬ 
ta que se repita el ciclo. También 
se pone a 0 el b¡estable (se activa la 
entrada RESET) que guarda la in¬ 
formación de ACK. Así está dis¬ 
puesto para detectar el pulso de 
conformidad. 

— Ai escribir en DF (OUT 
(DFh).A) si el bit 7 del bus de datos 
está a 1, la salida de la puerta B 
pasa al estado lógico alto. De este 
modo, se envía a la impresora el 
pulso de STROBE. La duración de 
este pulso, como se deduce del dia¬ 
grama de bloques y de cronogra¬ 
ma, abarca poco más de dos ciclos 
de reloj. Como el Spectrum fun¬ 
ciona a 3,5 MHz, resulta una lon¬ 
gitud de poco más de 600 nS, sien¬ 
do suficiente para la mayor parte 
de las impresoras, que necesitan 
un pulso mínimo de 500 nS. 

— La lectura de DF (IN 
A,(DFh)) activa el buffet triestado 
D, transmitiendo al bus de datos el 
valor del biestable. Para saber si se 
ha recibido la señai de ACK, basta 
comprobar el estado de este bit al 


leer el puerto. Este flip-flop es del 
tipo S-R, de modo que cuando se 
pone en alto la entrada S, la salida 
se mantiene en “1” hasta que se 
activa la línea de Reset. 

El circuito definitivo (figura 3), 
sólo se diferencia del diagrama de 
bloques en las modificaciones al 
hecho de que todas las líneas de 
control usan lógica negativa. 

Los componentes son muy co¬ 
munes, sin embargo, últimamente 
se han observado problemas en la 
adquisición de circuitos TTL. Si 
no fuera posible conseguir la ver¬ 
sión LS, de bajo consumo y alta 
velocidad, se podrá usar la versión 
estándar. Solamente recomendar 
cuidado y limpieza en el montaje. 


Programas: 

A continuación se describen al¬ 
gunos programas en BASIC y En¬ 
samblador necesarios para usar el 
interface. Para comprenderlos no 
es necesario más que haber com¬ 
prendido los párrafos anteriores. 
Todos han sido escritos para una 
EPSON MX-70, pero funcionan 
también con otros modelos de im¬ 
presoras. 


El programa en Ensamblador 
(programa I) es claramente más 
veloz y resulta de uso obligado 
cuando ha de imprimirse gran can¬ 
tidad de información. Ha de tener¬ 
se en cuenta que el programa no 
puede pararse, de modo que si la 
impresora está desenchufada, no 
tenemos control sobre el teclado. 

El programa en BASIC (2), es de 
uso inmediato y debe emplearse en 
programas sencillos donde ía velo¬ 
cidad no sea un factor importante. 
El programa 3 es un ejemplo del 
uso del 2, donde se imprime un 
mensaje. 

También se incluye un progra¬ 
ma que permite (4) hacer listados 
en la impresora (la función LIST 
no puede emplearse). Se ha apro¬ 
vechado esta oportunidad para ha¬ 
cer listados más legibles que en 
pantalla. El programa a listar no 
debe tener ninguna línea entre 
7000 y 7320. Se cargará haciendo 
un MERGE. Presenta un grave 
problema: su lentitud. 

Por último se indica un progra¬ 
ma (5) en Ensamblador, que per¬ 
mite copiar gráficos en ia impreso¬ 
ra. 


Luis Miguel 
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Figura 7. Ejemplo de impresión gráfica y textg en la EPSON MX-70. 
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MADRID 
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NECESITAMOS 

• PROGRAMADORES CODÍGO 
MAQUINA CON DOMINIO DEL 
Z-00 V 66502 

• FANATICOS ROMPETECLA- 
DOS DE CQMMÜDGRE-64 
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DA ESPAÑA (EXCELENTES CO¬ 
MISIONES). 

Dirigirse por escrito adjuntando 
historial y pretensiones económicas a 
VENTAWATIC Opto Personal. 

C/ Córcega. 89 08029 BARCELONA 




m 

\ 

L MULTISYSTEM, 6. A. 


BOUTIQUE INFORMATICA 

* Ordenadores Personales. 

* M i ero ordenad o res de gestión 

Todas tas novedades en: 

Programas, ■ Periféricos- libros 
[nacionales v de importación] 

Para: Spectrum - Dragón - Base 64 
Spectravideo - O ríe - Commodore, etc. 

C/ San Vicente, 53 ALICANTE. Tel {965) 21 55 66. 



IMPORTACION Y 
VENTA DIRECTA 


ZX81 1K 
SPECTRUM 48K 
MICRODRIVE 
INTERFACE 1 
CARTUCHO 
QL 128K 


11 500, ptas 
36.900 pías 
14.500 p ptas 
14.500, ptas 
1.400, ptas 
1 10.000, ptas 


Envíos contra reembolso 


Seis meses de garantía 
Servicio de reparación 

Tel. 241 55 18 Barcelona 
(93) 726 04 83 SabadeIJ 

* * * 

COMPUTER DISKONT 

Plaza Blasco de Garay 17. 1.& 
08004 BARCELONA 


SUSCRIBASE A 

lbdospectrun 

(12 NUMEROS) 


TARIFA DE PRECIOS DE SUSCRIPCION 



CORREO 

CORREO 

CORREO 

CORREO 


ORDINARIO 

CERTIFICADO 

AEREO 


AEREO-CERTIF 


PTAS 

$ 

PTAS. 

$ 

PTAS. 

$ 

PTAS. 

$ 

ESPAÑA . 

3.000 

21 

3,273 

23 

3.055 

22 

3.333 

24 

EUROPA, MARRUECOS, TUNEZ. 









TURQUIA. ARGELIA Y CHIPRE . 

3.456 

25 

4.272 

31 

3,600 

26 

4.418 

31 

COSTA RICA. CUBA. CHILE. PA¬ 









RAGUAY Y REP DOMINICANA. 

3.396 

24 

4.212 

30 

4.164 

30 

4.980 

36 

GIBRALTAR Y PORTUGAL . 

FU IPIWA'í 

3.264 

23 

4.080 

29 

3.149 

22 

3.965 

28 

r 1 Ll r MMttO - . , , r - , , , . r , , r . . , ... 

RESTO DEL MUNDO.. 

3.264 

23 

3.540 

25 

3.775 

27 

4.050 

29 


3.456 

25 

4.272 

31 

4.224 

30 

5.040 

36 



El importe lo abonare: POR CHEQUE a CONTRA REEMBOLSO o 

CON TARJETA DE CREDITO □ American Express □ Visa □ Interbank □ 


Numero de mi Tarjeta 


C 


Fecha de caducidad: 


NOMBRE _ 

DIRECCION 


CIUDAD 


D.P _PROVINCIA 

































































rendimiento 

a su IVGcrodrive 


A unque no pueda competir 
con los tradicionales siste¬ 
mas de almacenamiento de 
datos, el microdrive repre¬ 
senta sin duda alguna un 
gran avance en la obtención de 
nuevas y más baratas unidades de 
almacenamiento. Si ya dispone del 
Interface 1, una unidad adicional 
(recuerde que puede llegar a co¬ 
nectar 8 unidades simultáneamen¬ 
te) le supone un desembolso de 
19.000 ptas., sensiblemente supe¬ 
rior a las 50 libras del mercado in¬ 
glés, pero un buen precio si se 
compara con la oferta de otros or¬ 
denadores. 

Veamos qué es lo que compra y 
qué puede hacer con ello. Para 
esto, como hacíamos en el número 
anterior, compararemos el micro¬ 


drive con el clásico sistema de al¬ 
macenamiento de los home com¬ 
puten: el cassette. La razón por la 
que el cassette no es una buena so¬ 
lución es sencillamente que no fue 
diseñado para tal propósito. Aun¬ 
que a veces se dice que con un 
buen equipo de grabación se elimi¬ 
nan todos los problemas, esto no es 
del lodo cierto, ya que el mayor 
problema reside en las propias cin¬ 
tas, que debieran tener una mayor 
superficie de material magnético. 
El segundo problema de la casset¬ 
te, como todos sabemos por expe¬ 
riencia, es la lentitud con que ope¬ 
ra. Los distintos sistemas de graba¬ 
ción/lectura a distintas velocida¬ 
des no resultan del todo fiables y 
tampoco son una solución. 

El microdrive resuelve estos pro¬ 


blemas, pero manéjelo con precau¬ 
ción. Recuerde que no debe locar 
nunca la cinta, ya que podría per¬ 
der la información contenida en 
ella, así como no colocarlas cerca 
de un campo magnético (téngalas 
siempre retiradas del televisor in¬ 
cluso del Spectrum). 

La primera vez que utilice una 
cinta de microdrive o cartridge . 
como ocurre con todos los discos, 
tendrá que formatearlo, operación 
tras la cual podrá obtener alrede¬ 
dor de 90 Kbytes disponibles. Es¬ 
ta es una de las características más 
peculiares del microdrive, ya que 
distintas cintas e incluso reiteradas 
operaciones de formateo, dan ca¬ 
pacidades distintas. Esto es debido 
a que la cinta es particularmente 
rígida al principio, con lo que a 


PROGRAMA 1 

100 rem format pan conseguir * 
l máximo numero de 'K 
lia CL5 

120 INPUT "NOMBRE DEL CARTUCHO 

iSl IF LEN n $> 10 THEN PRINT "DE 
MASIADÜ LARGO": GO TQ 120 
1Í0 PRINT "INSERTA UN CARTUCHO 
NUEVQ.EN EL MICRODRIUE v PULSA L 

^150 IF INKEY*<>"F" AND INKEY*<> 
" f" THEN GQ TO ISO 
160 CLS _ „ 

170 FOR C»1 TO 3 

190 PRINT "FORMATEANDO ";n*;" " 
; c; " DE 3" 

200 PRINT 
210 füRMAT "m" 

220 CAT 1 
N£XT C 

240 PRINT ; PRINT "FORMATtado C 
ONCLUIDQ" 


PROGRAMA 2 


9000 

9010 


_ REM MAPA 

J010 CLS _ _ 

9020 PRINT AT 1,7; " AREA AT 1,16 
;"DIREC";AT 1,25; "SZ" 

9030 PRINT AT 3,1;"URR. MICRQDRI 
VE" ;AT 3,18;23734;RT 3,25;86 
9040 PRINT AT 5,1;"MAPA MICRODRI 
UE"; AT 5,18;23792;AT 8,25;(PEEK 
23631+256#PEEK 23632)-23792 
9050 PRINT AT 7,1;"INFÜRN. CANAL 
ES";AT 7,18,PEEK 23631+250tPEEK 
23632,AT 7,26;(PEEK 2363S+256+PE 
EK 23636)-(PEEK 23631+256*PEEK 2 
3632) 

9060 PRINT AT 9,1;"AREA PROGRAM 
RS";AT 9,18;PEEK 23635+2B6+PEEK 
23636;AT 9,25,(PEEK 2362?+256*PE 
EK 23628) - (PEEK 2363S+258*P£EK 2 
3636) 

9070 LET % « (PEEK 23?30+256*PEEK 
23731)-(PEEK 23653+256#PEEK 2365 
4): LET & (»STR$ (S/1024); IF LEN 
S$>4 THEN PRINT AT 11,8;"QUEDAN 
* ";sí( TO 5);"K": GO TO 9090 
9080 PRINT AT 11,8;"QUEDAN « ";* 
É + M K " 

9¿90 PRINT RT 13,5;"ULTIMO CflNRL 
NO.PEEK 23768 

9100 PRINT RT 15,5;"TIPO UTILIDR 
D '";CMR« (PEEK 23769);"“' 




medida que se utiliza permite ob¬ 
tener mayores capacidades. El pro¬ 
grama 1 ilustra este efecto, aunque 
e! número de Kbytes ganados no 
es especialmente importante. 

La utilización de los comandos 
FORMAT/SAVE/LOAD hace 
que la pantalla se altere violenta¬ 
mente cuando son utilizados con 
el microdrive. Para evitar esto se 
puede introducir el código corres¬ 
pondiente al color del PAPER en 
la variable del sistema ÍOBORD 
(23750) mediante la instrucción 
POK.E correspondiente. 

La principal razón para comprar 
un microdrive estriba en las posibi¬ 
lidades de almacenar programas y 
datos de forma rápida y eficiente. 
Pero si está pensando en pasar los 
programas de que dispone en cas¬ 
sette al microdrive, puede que ten¬ 
ga algunos problemas. Si se trata 
de programas realizados por usted 
en BASIC no tendrá ninguna difi¬ 
cultad, pero los programas que 
constan de más de una parte, como 
los que utilizan llamadas a otros 
programas puede que necesiten al¬ 
gunos cambios. Recuerde que con 
el microdrive no puede utilizar ex¬ 
presiones ambiguas como LOAD 
por lo que tendrá que reempla¬ 
zarlo por nombres. La casa inglesa 
Transform comercializa una cinta 
con la que poder realizar copias 


comercialice en nuestro país. 

El manual del Spectrum avisa de 
los peligros de colocar programas 
en código máquina en instruccio¬ 
nes REM. Tenga en cuenta que si 
tiene conectado el Interface 1, el 
programa se desplazará a localiza¬ 
ciones de memoria superiores. 
Esto es especialmente complicado 
al utilizar canales y buffers. Utili¬ 
zando el programa 2 como una su¬ 
brutina, le permitirá visualizar el 
mapa de memoria del Spectrum 
desde el comienzo de los mapas 
del microdrive hasta el final de la 
zona de programas. También ofre¬ 
ce información de la cantidad de 
memoria disponible así como del 
último canal utilizado. 

Una de las mayores deficiencias 
de los microdrives en materia de 
manejo de archivos es la imposibi¬ 
lidad de acceder aleatoriamente a 
la información. Sólo existen fiche¬ 
ros secuenciales, por lo que para 
leer un dato hay que leer previa¬ 
mente todos los que se encuentren 
grabados con anterioridad a dicho 
dato. Y lo que es peor, no se pue¬ 
den grabar datos en un archivo ya 
utilizado: hay que crear un nuevo 
archivo para pasar ios datos ante¬ 
riores y grabar nuevos datos. Pero 
esta no es la mejor solución, espe¬ 
cialmente si lo que se desea es al¬ 
macenar los datos ordenadamente. 


Imaginemos dos archivos que 
contienen nombres y direcciones. 
El problema es aunarlos en un solo 
archivo que contenga todos los da¬ 
tos perfectamente ordenados. No 
es especialmente difícil y se puede 
hacer con un solo microdrive, 
como ilustra el programa 3. Pero 
antes de ejecutarlo habrá de crear 
dos archivos con los nombres 
DATA1 y DATA2 e introducir al¬ 
gunos números en orden creciente. 
Los números pueden ser diferen¬ 
tes, pero el último número de cada 
archivo habrá de ser el 99999, in¬ 
dicativo de fin de archi vo. 

A continuación ejecute el pro¬ 
grama. El algoritmo para aunar los 
dos archivos puede ampliarse para 
trabajar con más de dos archivos. 

Finalmente, cuando se trabaja 
con cierta frecuencia con un car- 
tridge es curioso observar un ligero 
incremento en el tiempo de acceso 
a la información. Esto es debido a 
que los programas y archivos se 
graban de forma dispersa en vez de 
en un solo bloque, según la confi¬ 
guración del cartridge. La única 
forma de solucionar esto es pasar 
la información a otro cartridge, 
pasando los programas primero, y 
después los archivos de datos. De 
esta forma se conseguirán impor¬ 
tantes mejoras en el tiempo de ac¬ 
ceso. 


cassette-cassette, cassette-micro¬ 
drive. y microdrive-microdrive. 
muy útil para las copias de se¬ 
guridad (backup) y para poder 
copiar toda la información en 
bloque en vez de ir programa a 
programa, dado que los microdri¬ 
ves no disponen de la instrucción 
COPY. Esperemos que pronto se 


PROGRAMA 3 

tt B^N M «§? f ; 5 ?iT"DgTgr: 

16 OPEN 86; "m 11 ; lj "OftTRg 
10 OPEN 87;"IA“jlj"ORTR3" 

20 00 SUS 100: 00 SUB 110 
40 IF O <t THEN PRINT *7;0: 00 

SU0 100 

50 IF t<0 THEN PRINT 87; t; 00 
SUB 110 

56 IF t*99099 RND 0*99999 THEN 
PRINT 85Jt: GLOSE 85: GLOSE 86: 
GLOSE 87: STOP 

60 IF t *0 THEN PRINT 87;ti 00 
SUB 100: 00 SUB 110 

70 00 TO 40 _ 

100 INPUT 86;0: RETURN 
110 INPUT 86;t: RETURN 















Incorpore 

la función 





siguiente programa podra cons¬ 
truirse su propio RESET que el tío 
Olive le negó por condicionantes 
económicos. 

Para comprender lo que decía¬ 
mos del bucle sin ñn basta con que 
introduzca una instrucción en su 
ordenador 

10 GOTO 10 

ridículo ¿verdad? Pero útil ^ara 
ver cómo su ordenador entra en un 
proceso sin fin, fácil de detener 
presionando BREAK (CAPS 
SH1FT y SPACE). Pongámoslo un 
poco más difícil: 

10 INPUT LINE A$ : GOTO 10 
Ahora la única forma de detenerlo 


es presionar simultáneamente 
CAPS SHIFT. ENTER y ESPA- 
CE, esta última de forma repetiti¬ 
va. Para ésta y otras situaciones si¬ 
milares, podemos valernos de las 
ventajas del código máquina y 
crear una rutina que haga las veces 
del inexistente RESET. Una vez 
introducida a partir de la dirección 
80E2. la función RESET quedará 
permanentemente activada al uti¬ 
lizar RANDOM1ZE USR 33001 
hasta que se desactive por efecto de 
la instrucción RANDOMIZE 
USR 32994. 


^ ecuerda la última vez 

j 1J que, tras pasar pacien- 
ffV temente numerosas 
sentencias, su ordena¬ 
dor se quedó bloquea¬ 
do? No le vamos a pedir que “ 
cuerde lo que pensaba tu ww — 
mentos, a buen seguro que su orde¬ 
nador tampoco tenía muy buenos 
pensamientos, probablemente per¬ 
dido en un bucle sin fin. En estos 
casos, después de comprobar que 
efectivamente el ordenador no le 
hace caso aunque pulse todas las 
ledas, sólo le queda una solución: 
desconectar y volver a empezar. O 
quizá debiéramos decir que sólo le 
quedaba una solución. Si sigue 
leyendo este artículo y dispone de 
un Spectrum de 48K, pues con el 
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Una vez activada se puede tra¬ 
bajar en lenguaje máquina o en 
BASIC sin mayor problema, Pero 
una nueva función habrá sido in¬ 
corporada a su Spectrum, como 
podrá comprobar al presionar si¬ 
multáneamente SHIFT y ENTER. 
Cualquier operación que estuviese 
realizando el Spectrum quedará 
automáticamente suspendida, apa¬ 
reciendo el rótulo RESET execu- 
ted. El ordenador quedará disponi¬ 
ble para aceptar nuevos comandos. 

Curiosamente, observará una 
importante característica: si pre¬ 
siona RESET mientras está intro¬ 
duciendo instrucciones en una lí¬ 
nea, toda la línea será anulada. 

El código máquina comienza a 
partir de la dirección 80E2 {32994 
en decimal). Recuerde que la di¬ 
rección 32994 es la que deberá uti¬ 
lizar para desactivarlo y 33001 
para activarlo. 

Si todavía se muestra un poco 
escéptico, pruebe la siguiente ins¬ 
trucción en código máquina e in¬ 
tente desbloquear el ordenador sin 
y con la ayuda de esta rutina: 

18 FE LOOP JR LOOP 

¿Lo probó? Nosotros también 
opinamos que es formidable. Para 
ver mejor sus efectos pruebe a uti¬ 
lizarlos con cualquier programa en 
BASIC c incluso con los listados. 

Pero no iodo es un camino de 
rosas, lo que en nuestro caso signi¬ 
fica que no siempre el ordenador 
nos hará caso. Ello no quiere decir 
que siempre tenga la última pala¬ 
bra; simplemente hay que cono¬ 
cerle mejor para ver cómo trabaja. 
RESET no funcionará cuando rea¬ 
lice operaciones de grabación/lec¬ 
tura o cuando utilice la instrucción 
BEEP. Todos estos casos tienen 
algo en común: la interrupción ha 
sido desactivada. Si graba el pro¬ 
grama que utilizó con RESET, 
pero no el código máquina, la car¬ 
ga y ejecución posterior del mismo 
no podrá detenerse con RESET, 
simplemente porque esta función 
ya no estará disponible. Además, 


el comando NEW desactivará la 
función RESET, incluso si se gra¬ 
ba el código máquina por encima 
de la RAMTOP. 

Finalmente, RESET no podrá 
ser utilizado en un Spectrum de 
16K, Ello es debido a que el regis¬ 
tro I no puede contener valores 
comprendidos entre 40 y 7F sin 
afectar a la pantalla. 


Sería bonito y práctico que e! 
Spectrum hubiese salido con un 
dispositivo de RESET incorpora¬ 
do. Sabemos de algunos que ya 
han desarrollado su propio RÉ- 
SET externo. Para ellos y los que 
sólo quieren saber de software, les 
ofrecemos ahora la posibilidad de 
incorporarlo directamente a sus 
programas. 


í ( oiin, 1 1 \i \ut i\ v 

\M MHt r W 

i i i MI %l Mí le K 


ORG 80E2 


3E3F DE ACTIVATE 

LD A, 3F 


ED47 

LOLA 

I = 3F 

ED56 

IM l 

Vuelta a la normalidad 

C9 

RET 

Rechazada desacti vación 

3 ESO ACTIVATE 

LD A.80 


ED47 

LD Í,A 

I = 80 

ED5E 

IM 2 

Interrupción dirigida a I-ADDR 

C9 

RET 


524553 RES MESSAGE 
45542065 

78656375 


Mensaje a imprimir 

746564Al 

DEFM RESET 
executed! 


0181 IADDR 

DEFW 



TEST-RESET 

Interrupción hacia dirección 
TEST-RESET 

F5 TEST RESET 

FUSHAF 

Stacky Plags 

3 EFE 

LD A.FE 

DBFE 

IN A,(FE) 

Buscar segmento 0 

IF 

RRA 

Chequear CAPS SHIFT 

3807 

JR CNO RESET 

Bifurcar a menos que se presione 



CAPS SHIFT 

3EBF 

LD A.BF 


DBFE 

ÍN A,(FE) 

Buscar segmento 6 

1F 

RRA 

Chequear tecla ENTER 

3004 

JR NCRESET 

Bifurcar si se ha presionado ENTE R 

Fl NO RESET 

POP AF 

Restore A y Flags 

FF 

RST38 

Actualizar «variables del sistema 
KSTATE, LAST-K y ERA MES 

ED4D 

RETI 

Retomo 

2AB25C RESET 

LD HURAMTOP) 


2B 

DEC HL 


F9 

LDSICHL 

Vaciar Síack 

2B 

DEC HL 


2B 

DEC HL 


223D5C 

LD{ERR-SP)*HL 

Reset variable del sistema ERR-SP 

AF 

XORA 


327I5C 

LD(FLAGX),A 

Cancelar modo INPUT 

CD0I 16 

CALL CHANOPEN 

Utilización canal0 

CDóEOD 

CALLCIJvLOWER 

Vaciar pane inferior de la panlal la 

213 B5C 

LD1ILFLACS 

CB9E 

RES 3>(HL) 

Especificar modo K 

23 

INC HL 

Direccionar HL hacia TUFLAG 

CBEE 

SET 5.(HL) 

Señal de actuación en la parte inferior 

AF 

XORA 

í J EF80 

LO DE.RES 1VIESSAGE-1 


CDOAOC 

CALL PO-MSG 

1 imprimir «Reset executed» 

EB 

El 

Permitir interrupciones 

C3A912 

JP MAIN-3 

Bifurcar 























U na de las más habituales 
críticas que recibe el Spec- 

_trum, y junto con él todos 

los ordenadores domésti¬ 
cos, es la escasez de aplica¬ 
ciones profesionales. Por contraste 
con el crecimiento espectacular de 
software para juegos, lentamente 
han ido apareciendo una serie de 
programas de utilidades y aplica¬ 
ciones de cierta relevancia para to¬ 
dos aquellos que quieren utilizar el 
Spectrum para algo más que “ma¬ 


tar marcianos”. Pero, ciertamente, 
es un tema difícil y controvertido, 
con la ya tópica pregunta de si el 
Spectrum puede utilizarse para 
programas “serios”. Con lo que en 
realidad se pregunta sobre la posi¬ 
bilidad de utilizarlo en los campos 
en que tradicionalmente están re¬ 
servados a máquinas de mayores 
capacidades. Ello resulta en oca¬ 
siones tan ridículo como comparar 
un autobús con un turismo, para 
prestar un servicio de transporte. 


El único camino válido pasa por 
conocer las características del 
Spectrum, para aprovecharlas al 
máximo, pero sin olvidar sus limi¬ 
taciones, que en el campo de las 
aplicaciones profesionales son su 
reducida memoria interna y su de¬ 
ficiente manejo de memorias ex¬ 
ternas. 

Una de las aplicaciones clásicas 
de todo ordenador es el editor o 
procesador de textos, a menudo 
suministrado con el mismo equipo 













como es el caso del QL de Sinclair. 
“Tasword two” es el nombre in¬ 
glés del editor que, bajo distintas 
versiones y nombres, se comercia¬ 
liza en España, siendo el más co¬ 
nocido el “Contest”. 

El programa ha sido desarrolla¬ 
do por Tasman Software en 1983; 
pero hasta fechas recientes no se 
ha podido disponer de la versión 
en castellano con el vocabulario 
adaptado para poder manejar los 
caracteres españoles. El programa 
corre únicamente en el Speetrum 
de 48 Kbytes utilizando BASIC y 
código máquina. 

Inicia!mente, dos características 
llaman la atención: un completo 
manual de instrucciones, cuyos co¬ 
mandos se incorporan en el propio 
programa en forma resumida, y la 
existencia de una opción de copia 
y conservar el programa original 


Tasword permite manejar un 
texto de hasta 320 líneas, y 64 ca¬ 
racteres por línea. El número de li¬ 
neas es suficiente para cualquier 
texto. El número de caracteres por 
línea puede ser suficiente para im¬ 
presoras de 80 caracteres, aunando 
una velocidad aceptable y una ca¬ 
lidad de impresión más que acep¬ 
table, pero sin duda excesivos ca¬ 
racteres para la resolución de un 
televisor. El resultado es una fatiga 
visual y una difícil lectura, espe¬ 
cialmente cuando coinciden varios 
caracteres iguales. Un monitor 
tampoco soluciona el problema. 
Uno de los comandos permite vi¬ 
sualizar sólo la mitad de la panta¬ 
lla a su tamaño normal (es decir, 
32 caracteres por línea), pero al 
no poder ver el texto en su con¬ 
junto obliga a estar cambiando 
constantemente de un formato 


a otro, no modo de inserción. 

En la esquina superior izquierda 
de la pantalla aparece un pequeño 
cuadrado negro intermitente, indi¬ 
cando que puede comenzar a in¬ 
troducir el texto. Si no tiene el ma¬ 
nual de instrucciones cerca, no se 
preocupe: puede pulsar SYMBOL 
SH1FT y “a”, con lo que verá las 
distintas opciones de que dispone, 
o CAP SH1FT y “1” simultánea¬ 
mente. La primera vez verá los co¬ 
mandos más importantes, y si des¬ 
pués presiona CAPS SHIFT y 
SYMBOL SHIFT de forma simul¬ 
tánea, podrá ver los llamados co¬ 
mandos de ampliación. Vayamos 
por partes para comprender el al¬ 
cance de cada una de las opciones. 

Menú 

Presionando STOP (SYMBOL 
SHIFT y “a”) aparece el menú de 


Por fin un 



profesional 


por si hubiese algún problema. No 
es normal encontrar buenas expli¬ 
caciones, rasgo común para todo 
tipo de ordenadores y programas. 
Pero menos normal es encontrar 
un programa que no sólo se preo¬ 
cupe de los problemas de copia, 
sino que la facilite como una op¬ 
ción más del programa. Dejando 
de lado los problemas de piratería 
que siempre existirán, no cabe 
duda que es tranquilizante saber 
que se dispone de una copia. 


resultando de mucha utilidad, 
Una vez efectuada la carga del 
programa, este se ejecuta automá¬ 
ticamente, apareciendo la pantalla 
totalmente en blanco, a excepción 
de la parte inferior de la pantalla, 
donde se informa continuamente 
del número de línea y columna en 
la que se encuentra el cursor, si 
está activada la justificación del 
texto (alineación según margen de¬ 
recho), la activación automática de 
márgenes y si se está trabajando en 


opciones disponibles: impresión, 
grabación, carga, mezcla, defini¬ 
ción caracteres, control de impre¬ 
sora, copia del programa Tasword. 

La impresión permite definir el 
número de línea en blanco entre 
las distintas líneas del texto, la lí¬ 
nea de comienzo y la línea final. 

Las operaciones de grabación, car¬ 
ga, mezcla de documentos y copia 
del Tasword vienen preparadas ^ 
para cassette, pero se suministran k 
los cambios necesarios para traba- ™ 








jar con microdrive. Después de in¬ 
troducir estos cambios pudimos 
comprobar que funcionaba correc¬ 
tamente. La única salvedad a men¬ 
cionar es que el programa no veri¬ 
fica la existencia del nombre de ar¬ 
chivo que se le indique, limitándo¬ 
se a dar el error correspondiente, 
lo que se complica en el caso de la 
actualización de un texto y su pos¬ 
terior grabación. Para evitar el 
error de "writing (o a read file” 
habrá que salirse al BASIC, elimi¬ 
nar el archivo y volver al progra¬ 
ma. Otra solución es dar un nom¬ 
bre distinto para cada actualiza¬ 
ción, con el consiguiente desperdi¬ 
cio de espacio en el cartucho. La 
definición de caracteres de control 
de impresora permite trabajar con 
cualquier impresora aprovechan¬ 
do las características de éstas. El 
manual describe los códigos para 
la Epson FX80 y MX80, pero es 
fácilmente aplicable a otras impre¬ 
soras al poderse redefinir los códi¬ 
gos por programa. 

Finalmente, desde el menú se 
posibilita pasar al BASIC, tenien¬ 
do acceso al listado, pudíendo vol¬ 
ver al programa ejecutándolo de 
nuevo (RUN) sin que se pierda el 
texto con el que se estaba trabajan¬ 
do. 


Comandos 

Presionando simultáneamente 
CAPS SHIFT y “1” (EDIT), apa¬ 
recerá una valiosa página de ayuda 
en la que se muestran los coman¬ 
dos más importantes, cuya utiliza¬ 
ción puede parecer un poco com¬ 
pleja al principio, como todos los 
editores, pero basta un poco de 
práctica para ver que no sólo se 
trata de un completo programa, 
sino también de un programa de 
fácil manejo. 

TRUE VIDEO e INV VIDEO 
permiten retroceder o avanzar el 
cursor hacia el comienzo de la an¬ 
terior o siguiente palabra. Con las 
teclas de movimiento (5, 6, 7 y 8) 
también se desplaza el cursor, pero 
carácter a carácter. OR sirve para 
desplazarse al final del texto, y AT 
para ir al inicio. Con TO y THEN 
se produce un rápido SCROLL de 
pantalla para visualizar rápida¬ 
mente cualquiera de las 320 líneas, 

DELETE permite eliminar ca¬ 
racteres de la misma forma que ya 
estamos acostumbrados en BASIC. 
Para borrar una línea se puede uti¬ 
lizar NOT. También se pueden in¬ 
sertar caracteres y líneas enteras 
mediante AND. La opción STEP 
permite juntar párrafos que estu¬ 
viesen separados, pero curiosa¬ 


CUANDO 
EL SPECTRUM 
PASA A SER 
UNA PROFESION 


No es ninguna novedad decir 
que muchos programadores, jóve¬ 
nes en su mayoría, han escogido el 
Spectrum como profesión, machos 
de ellos lanzados a la fama por la 
realización de programas de jue¬ 
gos de gran difusión. Pero no son 
sólo juegos ¡o que demanda el 
mercado español. Miguel Barrera 
lo vela bastante claro, cuando ape¬ 
nas acababa ¡a carrera de infor¬ 
mática decidió dedicarse de lleno 
al Spectrum. Después de año y 
medio de trabajo, no tiene ninguna 


duda sobre las aplicaciones del 
Spectrum, aunque reconoce algu¬ 
nas limitaciones: ‘‘El mayor pro¬ 
blema es ¡a memoria. No cabe un 
sistema operativo un poco decente. 
En cuanto metes un compilador 
para trabajar en código máquina y 
alguna rutina de utilidad ya te 
quedas sin memoria. Queda poco 
espacio para meter datos, por lo 
que hay que traerlos de memoria 
externa, que no es precisamente lo 
mejor de Sinclair. Es bueno para 
pequeñas aplicaciones, especial¬ 
mente si se utiliza en su parte físi¬ 
ca, como en la obtención de seña¬ 
les. Conectado al sistema telefóni¬ 
co, por ejemplo, se le podría decir 
dentro de dos semanas empiezas a 
llamar a un señor cada cinco mi¬ 
nutos. Si te coge el teléfono le das 
este recado y grabas el suyo. Si no 
contesta insiste, y si a los treinta 


mente, para que funcione siempre 
ha de haber un carácter en la pri¬ 
mera columna de la línea. Así, en 
el caso de un “punto y aparte”. Si 
se desea cambiar a un “punto y se¬ 
guido”, primero se ha de introdu¬ 
cir un carácter en la primera co¬ 
lumna del siguiente párrafo, volver 
a la línea anterior, pulsar STEP, 
llevar el cursor al carácter introdu¬ 
cido y borrarlo con DELETE. Pul¬ 
sando STOP se vuelve al menú. Si 
se ha fijado, la mayoría de estos co¬ 
mandos tienen una característica 
común: son los que están sobreim¬ 
presionados en rojo en el teclado 
del Spectrum, es decir, que siem¬ 
pre habrá que pulsar SYMBOL 
SHIFT previamente. 

Para el control individual de 
cada linea se dispone de 3 potentes 
comandos: “<=” desplaza la linea 
hacia la izquierda. “>=” la despla¬ 
za a la derecha, siempre que el tex¬ 
to no esté ocupando ya el primer y 
último carácter, respectivamente. 
“ < > ” centra el texto de la línea. 

Pulsando CAPS LOCK (CAPS 
SHIFT y “2”) se accionan las 
mayúsculas, apareciendo en la 
parte inferior izquierda de la pan¬ 
talla el rótulo CAPS LOCK. Otro 
rótulo que también aparecerá en la 
parte inferior de la pantalla, con¬ 
cretamente en el margen derecho, 


minutos sigue sin contestar llama 
a otro número y di que no has po¬ 
dido dar el mensaje. El único pro¬ 
blema sería lograr una estabiliza¬ 
ción suficiente para que aguante 
encendido. Pero la gente tiene 
miedo a meterse con esto 
Es en el campo de las aplicacio¬ 
nes de gestión donde parece haber 
una mayor demanda, según se 
desprendía de sus trabajos realiza¬ 
dos, ‘ 'El mayor problema me sur¬ 
gió para una empresa de Aries 
Gráficas. Querían que el ordena¬ 
dor confeccionase el formato de los 
anuncios de una serie de clientes y 
para un número de pedidos. En to¬ 
tal, 1.000 inserciones acumulables 
durante un año y cliente. Todo eso 
no cabe en el Spectrum a la vez. 
Además, había que ordenarlo, y 
una base de datos sólo ordena el 
bloque de datos existente en me- 
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es el GRAPHICS, avisando que 
puede introducir el texto normal¬ 
mente. Pero con la diferencia de 
que las teclas numéricas devuelven 
los caracteres gráficos sobreimpre¬ 
sas en ellas. Independientemente 
de la utilidad gráfica que pueda 
proporcionar por pantalla (presio¬ 
nando CAPS SHIFT se obtiene el 
carácter gráfico inverso), permiten 
definir códigos de impresión para 
determinadas impresoras, como ya 
comentábamos al hablar del menú 
de opciones. 

Comandos de extensión 

Para acceder a los denominados 
“comandos de extensión” presione 
simultáneamente CAPS SHIFT y 


SYMBOL SHIFT. Notará que la 
línea inferior de la pantalla se tor¬ 
na intermitente. Pasará de nuevo 
al modo editóT presionando algún 
comando o pulsando de nuevo am¬ 
bas teclas, CAPS SHIFT y SYM¬ 
BOL SHIFT. Estos comandos es¬ 
tán divididos en seis bloques: 
SCROLL, impresión, formateo, 
márgenes, comandos de bloque y 
comandos varios. 

Dos son los comandos de 
SCROLL: “F” para realizar el 
scroll descendente, y “G” para el 
ascendente. En vez de ir línea a lí¬ 
nea como los comandos “TO” y 
“THEN”, se va bloque a bloque, o 
pantalla a pantalla, es decir, 22 lí¬ 
neas cada vez. 

Los comandos de impresión es¬ 


peciales para la impresora ZX 
Printer, son tres: “P” para impri¬ 
mir todo el texto (recuerde lo di¬ 
cho para la definición de códigos 
de impresión en las opciones del 
menú y el código GRAPHICS). A 
medida que se imprime una línea 
se produce el scroll de dicha línea 
por pantalla, lo que sirve para vi¬ 
sualizar el texto completo al mis¬ 
mo tiempo que se obtiene la copia. 
Con el comando “L” se activa la 
impresión en “modo extendido”. 
Es decir, que el texto aparece en 
doble densidad a partir de la línea 
en que se activó, fácilmente identi- 
ficable al aparecer en el texto el 
mensaje “print at double heighl 
on”. Si antes de llegar al final del 
texto se desea volver al modo nor- 
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CUANDO 
EL SPECTRUM 
PASA A SER 
UNA PROFESION 

moría interna, es decir, que podía 
tener varios bloques de datos orde¬ 
nados individualmente, pero no en 
su conjunto. El microdrive tampo¬ 
co está preparado para trabajar 
este volumen de datos de forma efi¬ 
ciente. Este problema de manejo 
de datos se me volvió a presentar 
en la realización de un programa 
de Bolsa. Partiendo de una base de 
datos, se aju taban las fluctuacio¬ 
nes a la pantalla, de forma que se 
desplázase la gráfica automática¬ 
mente. Pero siempre que se trate 


Comandos usuales. 



de manejar muchos datos se nos 
presentarán problemas ". 

Además de sus "programas a 
medida ”, trabaja como asesor de 
una tienda de distribución de or¬ 
denadores Sinclair y periféricos. 
Actualmente está realizando una 
nueva versión del editor de textos 
Tasword, sobre el que nos daba su 
opinión: “Versiones hay muchas. 
Pero al igual que el programa ori¬ 
ginal, suelen adolecer de un gran 
jallo: 64 caracteres por linea resul¬ 
ta ilegible. Además, la búsqueda es 
muy lenta, especialmente el algo¬ 
ritmo de búsqueda y cambio de 
una frase por otra. Pero tiene un 
aspecto muy positivo, como es una 
buena capacidad que permite 'ira- ■ 
bajar con cualquier texto. Para el 
problema de los caracteres se pue¬ 
de intentar realizar una rutina en 
código máquina para trabajar con 
























PONTE fí LOS MONDOS 
DE UN SPECTRUM. 

Ahora tu microordenador SPECTRUM es, aún, MAS 
con sus nuevos refuerzos: Microdrive, Interface 1. Interface 2. 

¡Por fin podrás grabar y leer información de manera casi instantánea!. 

¡O disfrutar a lo grande con la más extensa variedad de programas 
tanto educativos como de mero entretenimiento!. 

Y sobre todo vas a tener la posibilidad de aprender a programar 
(que siempre te será muy útil) de una manera fácil y divertida. 

No dejes pasar esta ocasión, 

ahora que puedes obtener mayor rendimiento de tu SPECTRUM 

PONTE A LOS MANDOS DE UN SPECTRUM 




IMPORTANTE: 

Mr Al adquirir los píoductos SINCLAIR empala TAñfETA 
DE GARANTIA EIMVESTRQNfCA única valida en todo el re mf orto 
W nací,anal y l lave para cualquir resolución de duda o repar ación 
r fNVESTRGNICA no prestara ningún servició técnico a iodos aquellos 
Aparatos que carezcan de la correspondí en lea garantía 














mal de impresión, se puede presio¬ 
nar el comando “K’\ desactiván¬ 
dose la doble densidad, aparecien¬ 
do en la línea en que se presione el 
texto “print ai double height ojj". 
Obviamente estos mensajes no 
aparecen en la copia de la impre¬ 
sora. La impresora ZX del Spec- 
turm puede, pues, utilizarse con el 
Tasword, posibilitándose dos tipos 
de escritura, pero dista mucho de 
ser una solución eficiente. Para ob¬ 
tener una buena impresión habrá 
de recurrírse a una impresora de al 
menos 80 caracteres por línea, lo 
que supone una inversión impor¬ 
tante. 

Los comandos de formato son 
cuatro: “E” activa la justificación 
del texto por-la derecha, quedando 
el texto alineado en todo momen¬ 
to. Activando el comando “W” no 
habrá de preocuparse por el fin de 
la linea. Si la palabra sobrepasa el 
número de caracteres de la línea, 
automáticamente se pasará toda la 
palabra a la línea siguiente. Lógi¬ 
camente, si ya tenía activado el co¬ 
mando “E”, simultáneamente se 
justifica el texto y se pasa a la si¬ 
guiente línea. Estas dos opciones 
son activadas automáticamente en 
el arranque del programa, pero 
mediante estos comandos pueden 
desactivarse/activarse en cualquier 


momento. El comando “J” permi¬ 
te justificar cualquier línea al mar¬ 
gen derecho y su contrario, el “H” 
devuelve la línea a su condición 
normal. 

Los márgenes se pueden contro¬ 
lar con tres comandos, ‘'A” y “D” 
para fijar los mái^enes izquierdo y 
derecho, respectivamente, y “S” 
para eliminarlos. Para ello habrá 
de situar el cursor en la columna 
donde se pretende fijar el margen, 
antes de presionar el comando co¬ 
rrespondiente. Aunque la ausencia 
de color es la nota predominante 
de este programa, los márgenes se 
visualizan clara y nítidamente al 
marcarse en amarillo. Pero si se 
cambian una vez que ya ha escrito 
algún texto, habrá de contar con 
importantes limitaciones: la 

mayoría de los comandos de con¬ 
trol de pantalla no funcionarán o 
funcionarán sólo parcialmente, 
por ejemplo, el centrado de línea 
no será posible con el texto escrito 
previamente, pero tampoco será 
posible con las nuevas líneas si se 
pretende activarlo desde el interior 
de los márgenes, es decir, desde la 
zona amarilla. Recuerde esto y de¬ 
fina previamente a la introducción 
del texto los márgenes con los que 
desea trabajar. 

Una de las utilidades más im¬ 


portantes de todo editor está en la 
posibilidad no sólo de insertar 
nuevas líneas o eliminar líneas 
existentes, como ya hemos visto, 
sino muy especialmente en la posi¬ 
bilidad de desplazar bloques ente¬ 
ros de texto, normal mente párra¬ 
fos. Para ello se dispone de cuatro 
comandos especiales. “B” y “V” 
sirven para “marcar” el inicio y fi¬ 
nal del bloque que se desea mani¬ 
pular. Para ello se sitúa el cursor 
en la posición que se desea marcar 
y se presiona el comando corres¬ 
pondiente, apareciendo unos cor¬ 
chetes que indican el inicio y final 
del bloque marcado. 

Dos comandos completan esta 
importante opción: “N” permite 
realizar una copia del bloque mar¬ 
cado a la posición en la que se en¬ 
cuentre el cursor. Si en dicha posi¬ 
ción ya hubiese texto, éste se des¬ 
plazaría para permitir la inserción 
del nuevo texto. Con ello se obtie¬ 
ne el duplicado del bloque marca¬ 
do. Finalmente “M” es el coman¬ 
do más utilizado y similar al ante¬ 
rior, con la diferencia de que el 
bloque no se copia sino que se tras¬ 
lada de una posición a otra dentro 
del texto. Las normas para la fija¬ 
ción de las marcas de comienzo y 
fin del bloque son las mismas. 
Cuando se utiliza la opción “M” o 



41 caracteres por línea y otra para 
imprimir i28 caracteres por linea 
en impresora, pero para ello hay 
que retocar el programa, y ello es 
un problema, porque no está direc- 
cionado de forma absoluta que 
puedas decirle vete dos pasos hacia 
adelante, sino que dice vete a un 
byte determinado, por lo que hay 
que reubicar todo y no hacia ade¬ 
lante. que ya está casi todo lleno, 
sino hacia atrás, y aún asi hay pro¬ 
blemas”. 

Problemas los hay siempre, y sin 
ellos nos aventuramos a decir que 
la programación perdería gran 
parte de su encanto. Pero con pro¬ 
blemas o sin ellos , queda claro que 
el Spectrum va entrando lenta¬ 
mente en campos antes reservados 
a otros ordenadores, y que toda vía 
existen muchos en los que podría 
ser de gran utilidad. 
















REM Somos profesionales 
REM Da mejor servicio. 

REM Tenemos también COMMODORE. ATARI, ATMOS, 
MULTITECH y SPECTRAVIDEO, HARD y 
SOFT 

REM CAMBIO acepta equipos de 2 a mano al adquirir otro nuevo 
REM Consúltanos tus necesidades 



RENOVACION EN MARCHA, S.A. 

c/. Espronceda. 34-2° ¡ni. MADRID-3 
Teléfono ( 91)4412478 

REM SHOP 1 

tí. Galileo, 4 - MADRID-15 
Teléfono ( 91)4452808 


HARD SPECTRUM JUEGOS 


HARD SPECTRUM UTILIDADES 


1 Speclrum 16 K 
1 Ampliación a 48 
1 interface programadle 
con (oystick 

vimoresora AlDhacom 32 
inieríace Microdnve 
1 Microonve 


31.900 Pías. 
9.500 Ptas 

9.500 Ptas. 

22.500 Ptas. 

17.500 Ptas. 
17.500 Ptas. 


108.400 Ptas 



1 Speclrum 48 K 41.900 Ptas 

1 Teclado profesional 16.800 Ptas 

11nterface paralelo . 13.100 Ptas 

t Impresora CP 80 59.000 Ptas 

1 Máquina escribir electrónica 
SILVER-REED 77.777 Ptas 

11nieríace máquina . 41.979 Ptas 

1 Plotter 4 colores 42.500 Ptas 

TOTAL..293.056 Ptas 





SOR SPECTRUM JUEGOS TOP TEN 


SOR SPECTRUM UTILIDADES/EDUCACION 



4.600 Ptas. 

— — v, 

HOBBIT 
48 K 


VALHALLA 
48 K 

4.500 Pías. 




5.000 Ptas. 

4.500 Ptas. 

TTTghtérT 

( SCUBA 

PILOT 

OIVE 

\_48 K. J 

V 48 K. J 

2.500 Ptas. 

2.500 Ptas. 


2.500 Pías. 

TORNADO^ 
LOWLEVEL 
_48 K . 


2.500 Ptas. 


SABRE 
WULF 
48 K 

2.500 Ptas. 

ZOOM-30 
48 K 


500 Ptas. 



TRAT. 
TEXTOS 
ESPAÑOL ) 

5.000 Ptas. 


c 


STAOISTICj 


2 


J 


SUPER 
QUINIELAS ] 

5.000 Ptas. 

^-> 

64 

CARACTERES 

V_> 


f ARCHIVOS 
MASTER 

. file J 

4.500 Ptas. 


tí 


RIANGULOS 



3.500 Ptas. 2.000 Ptas. 2.000 Ptat. 


TOP TEN 48 K 


HOJA 

CALCULO 

0MNICALC-2 

\_/ 

4,500 Ptas. 

Í PIANO ^ 
LECTRONICO 

__ J 


2.000 Ptas. 



I 


REM NOTICIAS 


REM WJB 

Funciona como un Oub de video Se 
adquiere una cinta y se intercambia 
con otras a 20C Ptas semana 
En cintas inglesas 400 Ptas. semana 
Sólo versiones originales 

REM FRAN CHIS INC 

Si qu ieres montar tu propia mi emenda 
de informática o una tienda 
especializada, envíanos tu dirección 
y recibirás intormaciuo completa 

REM DETALL 

Sí quieres vender nuestros productos 
envíanos tu dirección y recibirás 
puntual información 


REM PEGATINAS 

25 Ptas 3 modelos rem MEMBER 
ME. REM I LOVE VOU. REM FOREVER 

REM CAMISETAS 

990 Ptas. 3 modeles REM MEMBER 
ME. REM 1 LOVE YOU, REM FOREVER 
indicar taita pequeña normal y grande 

REM GRAPH 

Kit gráficos 6 colores 990 Ptas 
(REUTILIZABLE). 

REM CRAPH 

10 plantillas teclado reutilizable 900 Ptas 


íoNTABILIDAl) 

OFICIAL J 

5.000 Ptas. 4.500 Ptas. 

BOLETIN DE PEDIDO 




Nombre y Apellidos 
Dilección y íetetono 
Deseo recibir más información 
Deseo adquirir 

Precio total (incluye 300 Ptas de gastos de envío) 

Giro Postal □ Giro Teiegrálico O Transíanme ia Roncan.! Cj 
Ingreso en cuenta 3769^8 BANCO Dt BILBAO Ríos Rosas 44 MADRID 3 
Talón adpuFilo □ *. Talón conIcmiadci^íliriirHii □ 

lar |ela VISA número 

Fectia Caducidad t urna 







































































































“N" se eliminan las marcas efec¬ 
tuadas. Una característica de estos 
comandos es su lentitud. No se 
preocupe si cuando los presiona su 
ordenador parece no reaccionar, 
sólo hay que darle tiempo. 

Finalmente existen tres coman¬ 
dos no incluidos en los otros blo¬ 
ques, con interesantes actuaciones. 
El cambio de la pantalla de 64 ca¬ 
racteres a 32 y viceversa, se realiza 
pulsando “C”. Para eliminar un 
texto de la memoria del ordenador, 
se puede utilizar “X”, estando pre¬ 
visto que se equivoque, ya que le 
pedirá la confirmación de dicha 
orden. El comando “I” permite 
trabajar en modo de inserción a 
partir de la fila donde se encuentre 
el cursor, muy útil para incluir 


Visualizadún de 32 caracteres por línea. 


nuevas líneas. Y para acabar con 
esta completa lista, el comando 
"R” incorpora otra de las opciones 
clásicas de todo editor, la localiza¬ 
ción y cambio de una palabra por 
otra. Pero con una particularidad, 
al menos en cuanto al programa: 
no funciona. Bueno, funciona sólo 
en parte, pues permite localizar la 
palabra pero no la reemplaza, 
como indican las instrucciones. Si 
va a adquirir el programa, cerció¬ 
rese de que funcione en su versión. 

En resumen, por fin un editor 
profesional para el Spectrum que, 
como todos los editores, contiene 
gran número de opciones (dema¬ 
siadas al principio). Pero no se deje 
deslumbrar por demostraciones e 
indague a fondo en las verdaderas 


posibilidades de cualquier editor 
que le presenten. A la vista de las 
opciones de este programa, decida 
usted si le es útil, pero no caiga en 
la tentación de comparar con los 
editores de un microordenador. 
Sencillamente, son dos campos 
distintos. Este edi tor de textos pue¬ 
de resultar de gran utilidad, pero 
no olvide sus dos limitaciones más 
importantes: la resolución gráfica 
de los 64 caracteres no permite 
una visualización clara, y la utili¬ 
zación de la impresora ZX para la 
realización de documentos no deja 
de ser meramente anecdótica. Un 
monitor y una impresora de 80 ca¬ 
racteres pueden solucionar el pro¬ 
blema, pero su coste empieza a ser 
más que preocupante. 


CflprruLoi 

El trtn avanzaba 
«ir Ua fría noche 

tos ias recónditos 

Nadie podt a iia?i nmr lo que 
ocurriría en tas próximas horas» 


ten taeente 
a través 
parajes» 


TEEt5?^!IS^¡l5SnffI5!n^SI 



JMri'i, ¿4 4* 4e t-iC4 


Di a s* art*r* 4* reda I M ém 

orrutte?* m es jrw emiieart* me 
hacer ffttti a sv t* Ka» * 2M 

La *casx*a rara *fi 
M rraeactrs re* 


rara reai Ms urrtaittí* 



64 al ráete res por línea (obsérvense los márgenes). 


S LET ttd«l 

15 PQKE 23509,2: OLEAR 31999; 
GO SUB 4000: LORO # " Id " ; 1; " 144W0f 
d"CODE : LET a*USR 59061: GQ TO 
5 

60 PRINT RT 2,0;"cata logo/camb 
i 0 miCrd . ( M ; md ; *’) " ; RT 2,5l;"d" 

175 IF b»100 THEN LET i>3 
670 1F b = 100 THEN GO TO 5000 


700 CLS : LET a §>" tatUO r d " : SRU 
E •"«I"; i: "ron" LINE 15 
710 SR Ufe *"ffl";1¡a$CODE 54784,10 
751 


780 UERIFY *"m" 
RT 21,0;"tasword 
19,0; 

790 UERIFY » M m" 
10751: PRINT RT 
.K.": GO TO 25 


;l;"rgn": PRINT 
basic 0.K*;";RT 


;1;afCODE 54764 

21,20;" c.m»R. 


ó 


1000 LET b«FN P(62216): CL5 ; CR 

T md 

1005 print RT 8,16; "Nombra archi 
vo";RT 9,lñ,"a árabar?": LET i*i 
1: LET j0>16: QO SUB 5000 


1030 SRUE #"ra ";md; a tCODE b,a: CL 

v 

na# uerify * ,l *";ad;a*COOE b»a 

2000 CLS : CflT «d: PRINT RT 6,16 
;"tecite al nombrt";RT 9,16;"da l 
archivú ,l ;flT 10,16; "y praaiont C 
NTER" 

2020 LET J0>16: LET i«14: GO SUB 
6000: IF a*»'" 1 THEN GO TO 2020 
2030 LET b>FN p(62216): LORD *"m 
";rad;a$C0DE ía + b) , ((FN p(62221) + 
22) *64-a): GO TO 10 

5000 CLS : CRT md: LET J0*15: PR 
INT RT 8 , J0; "Di-i vt >";i»d 
601,0 PRINT RT 10, J0; "Tac L«* COdi 
go";RT 11,j0;"drive u ENTER.";RT 
14,J0;"Presiona ENTER"; RT 15, J0 
;"si no cambia." 

S020 LET i>17: GO SUB 6000: IF a 
**"" THEN CL3 : GO TO 25 
5030 LET md ><JRL a*: IF md<l OR (n 
d >8 THEN LET md *1 
5040 GO TO 600 


Instrucciones a inrrcMlucír para utilizar el Tasword con mícrodrive. 
(Eliminar líneas 11.900+ 1050 y 2010) 
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DE INTERFACES 


PARA IMPRESORAS 


Este es quizá uno de los temas 
que más quebraderos de cabeza 
han dado al usuario del Spectrum 
por la poca información existente 
y la brevedad de la mayoría de los 
manuales. 

Con este artículo pretendemos 
dar una idea general de su utilidad, 
así como un estudio detallado de 
los más usados en España. 

Para poder conectar una impre¬ 
sora a tu Spectrum, necesitas un 
ínter face que sirva de “traductor” 
entre los dos, es decir, que convier¬ 
ta las señales enviadas por el orde¬ 
nador por medio del bus de datos a 
señales comprensibles por la im¬ 
presora. 

El Spectrum tiene dos posibles 
formas de enviar datos a la impre¬ 
sora: 

1. De carácter en carácter (byte 
a byte), llamada transmisión en 
modo PARALELO, ya que en 
cada momento el ordenador envía 
ocho bits a Ja vez: en cuyo caso se 
necesitará un interface con salida 
paralelo. 

2. Bit a Bit, llamada transmi¬ 
sión en modo SERIE: debiendo ser 
el interface también de este tipo. 

El formato más usado en la 
transmisión en serie es el RS232 
que es compatible con la mayoría 
de los ordenadores y periféricos de 
E/S; así como en transmisión para¬ 
lela se suele usar el CK&JTRONIC. 

La transmisión en serie se usa 
más que para conexión a impreso¬ 
ras. para conexión con otros orde¬ 
nadores, teletipos, sintetizadores, y 
sobre todo cuando se trata de en¬ 
viar datos a larga distancia por su 
menor coste y mayor fiabilidad. 


Normalmente sólo se usa la trans¬ 
misión en serie en las impresoras, 
cuando éstas no tienen entrada pa¬ 
ralelo. 

Para enviar datos en serie, es ne¬ 
cesario realizar un pequeño pro¬ 
grama iprotocolo) que decodifique 
los caracteres enviados por el spec¬ 
trum y que inserte una serie de bits 


de control: de paridad, de comien¬ 
zo y de parada; así como otro de 
acuse de recibo, etc... 

ZX interface 1 

Ei ZX 1NTERFACE ! usado 
normalmente para la conexión del 


ANALISIS 













Spectrum con !os microdnves, 
también lleva una salida serie de 
tipo RS232 que puede ser utilizada 
para la conexión con una impreso¬ 
ra que lleve este tipo de entrada. 
En el libro "Spectrum microdrive 
book" del doctor lan Logan se de¬ 
talla de una manera muy completa 
su utilización y el protocolo nece¬ 
sario para ello. 

Las impresoras GP 50, TIMEX 
2048 y ZX primer por estar dise¬ 
ñadas sólo para Sinclair llevan ya 
el interface de tipo paralelo incor¬ 
porado, no habiendo problemas en 
su utilización ya que usan los co¬ 
mandos normales de impresión del 
Spectrum. Las demás por ser com¬ 
patibles con otros ordenadores, 
suelen llevar una entrada de tipo 
CEXTRONIC y otra (casi siempre 
en el interior de la impresora, te¬ 
niendo que abrirla para realizar la 
conexión) de tipo RS232. 

El KEMSTON E, y el INDES- 
COMP son los interfaces más usa¬ 
dos y requieren por ello un estudio 
detallado. 

Veamos sus ventajas e inconve¬ 
nientes. 


Interface KEMSTONE: 


Es el sucesor del antiguo KEMS¬ 
TON con una notable ventaja so¬ 
bre el ya que tiene el software en su 
interior grabado en EPROM y no 
en cinta como el otro. 

A diferencia del de INDES- 
COMP no ocupa memoria en el 
Spectrum, y por tanto no necesita 
inicíalizarse. 

Lleva incorporadas las funcio¬ 
nes LLISTjLPRINT, y COPY del 
Spectrum. 

La función COPY tiene tres for¬ 
matos: 

— Modo texto. 

— Alta definición. 

— Alta definición con doble ta¬ 
maño. 

Es posible modificar el número 
de caracteres pintados por línea 
por medio de POKE 23679, núme¬ 
ro de líneas. 

En el modo texto, los gráficos no 
los pinta, y los caracteres no son 
los del Spectrum sino los propios 
de la impresora por lo que se pue¬ 


den modificar tanto en tamaño 
como en forma. 

Para poder modificar las opcio¬ 
nes que tiene el interface hay que 
acceder a un menú por medio del 
comando COPY: REM? 

A continuación se puede ver un 
listado de este menú con todas las 
opciones en su estado inicial 
(cuando se enciende el aparato): 

SWÍTCH1NG COMANOS No.7F 

COPY:REM 

=OTEXT 

=* 1SEIK 100 

=& 2SEJK 250 

= #3EPSON 

=! 4EXTRA 

CHRS TOK.ENS 0-1 

t ENLARGED0-1 

27 ESC 0-1 

/LF STATUS 0 101 

La última línea es la llamada 
“LINEA DE ESTADO” y da la 
actual situación de cada una de las 
opciones modificables del interfa¬ 
ce. 


Interface INDESCOMP; 


Además de una salida de tipo 
CENTRONIC, lleva otra de tipo 
serie RS232-C bidireccional. Estas 
dos salidas pueden estar conecta¬ 
das simultáneamente a periféricos 
distintos. 

El software va grabado en 
EPROM y es volcado en las zonas 
altas de la memoria del Spectrum 
cuando se enciende el aparato. Por 


esto, el interface es sólo válido 
para el Spectrum 48k, 

Permite la conexión de otros pe¬ 
riféricos al Spectrum ya que el co¬ 
nectar de este, está prolongado por 
detrás del interface, pero habrá que 
utilizar direcciones distintas de 
E/S para cada uno de ellos. 

El interface utiliza los siguientes 
puertos: 

Salida 251 (FR H) para comuni¬ 
cación en paralelo. 

Salida 127 (7E H) para señales 
de control y transmisión de datos 
por el RS 232. 

Entrada 251 (FB H) para infor¬ 
mación del estado de la impresora 
y recepción de datos por el RS 232. 

Como sólo se usa una línea de 
decodificación, las direcciones 
cuyos bits 2 y 7 estén a cero no de¬ 
ben ser usadas. 

Para poder conectar la salida RS 
232 a un periférico hay que cons¬ 
truirse un cable con las siguientes 
características: 

Conectar para el interface: 

pin 1: No se conecta, 
pin 2: Para la recepción de da¬ 
tos. 

pin 3: Petición de envío y men¬ 
saje de listo para transmitir, 
pin 4: Toma de tierra, 
pin 5: Para la transmisión de da¬ 
tos. 

pin 6: Mensaje de listo para en¬ 
viar. 


Configuración del conector tipo Dde 25 ptnes 
para ios siguientes dispositivos 

SeÉkcsha 

More* /Nec Bryanx V.D.U, General General 

Interface Itmpres. Plotter (Newb.) DTE DCE 


GNQ (1), 7 í I), 7 í I), 7 (1K 7 (0,7 

IX DATA 3 3 3 3 2 

RX DATA (2) 2 2 2 3 

RTS 20(DTR) 5 4 

CTS 6 6 


Conectar para el periférico: 

Habrá que seguir las normas que 
en cada caso se dé en los manuales, 
normalmente suele ser un conec¬ 
tar del tipo D de 25 pines. 

Cualquier equivocación en las 
conexiones puede estropear tanto 
el ordenador como el interface y el 
periférico. 

Para activar el software habrá 



Cortador interface. 












RANDOMIZE USR 65044 y 
RANDOMIZE USR 65047 {para 
doble tamaño, aunque por pintarlo 
de forma horizontal queda incom¬ 
pleto). 

A diferencia del KEMSTON, es 
compatible para las SE1K.OSHAS 
en lo que respecta a la posibilidad 


que hacer un RANDOMIZE USR 
64973 después de ejecutar el co¬ 
mando NEW o RUN. 

El interface lleva un conmuta¬ 
dor que sirve para seleccionar el 
tipo de impresora: 

posición 1 ..Seikosha 

posición 2 ..Nec, Star, Epson, 
New Print {de Admate), C-Ito, Lo- 
gitec, etc.. 

El formato de salida para el RS 
232 es el siguiente: 

7 (u S para gráficos) bits de da¬ 
tos. 

I bit de paridad. 

1 bit de comienzo. 

2 bits de parada. 

La tasa de baudios (velocidad de 
transmisión) se puede seleccio¬ 
nar “pokeando” las direcciones 
64520-1 desde 50 hasta 4800 bau¬ 
dios según las normas de la EIA. 

Existen dos rutinas para el con¬ 
trol del interface: La primera es 
para salida de datos, y se dirige por 
medio de POKE 64524. byte: 
RANDOMIZE USR 64761. La se¬ 
gunda sirve para la entrada de da¬ 
tos y funciona por medio de los 
comandos RANDOMIZE USR 



64698:LET A$=CHRS PEEK 
64525. La RAMPTOP se posicio- 
naen 64515. 

Los “Copys" de pantalla se rea¬ 
lizan por medio de los comandos 


de hacer “copys" de pantalla en 
modo gráfico, aunque para esto es 
necesario adquirir una cinta distri¬ 
buida por DIRAK. que carga un 
programa en la misma zona de me¬ 
moria que la ocupada por el inter¬ 
face, anulando el programa de éste 
y sustituyéndolo en sus funciones. 

No tiene la opción de COPY en 
modo texto. 

Finalmente, decir que existen 


una variada gama de interfaces 
compatibles con el Spectrum no 
comercializados por el momento 
en nuestro país. Los más destaca¬ 
dos son: 

Otros interfaces compatibles 
con el Spectrum: 

* TASMAN INTERFACE: Pa¬ 
ralelo, software en cinta. 

* COBRA 232 I/O Port: SERIE 

RS? 32 

* HILDERBAY INTERFACE: 
Paralelo, software en cinta. 

* MOREX INTERFACE: Para¬ 
lelo, software en cinta, 

* EÜROELECTRON1CS ZX 
LPRINT: Paralelo. 

* ADS INTERFACE: Paralelo. 






! . 1 

CTS 


1 .' 

DATOS 






Apretón de manos con dos lineas de control. 











































No puedo contraatacar en el 
programa de Boxeo del número 1. 
¿Será porque no existen instruc¬ 
ciones INPIJT? 

Camacho 

Madrid 

□ Introduje el programa Boxeo y 
no pude mover mi jugador. ¿No 
podría ser un error de imprenta 
entre las lineas 30 y 62 donde pa¬ 
rece haber un salto entre esas lí¬ 
neas? 

Antonio Romero 
Jerez (Cádiz) 

0 Al recibir dos cartas sobre el 
mismo programa, lo revisamos ex¬ 
haustivamente, no encontrando 
ningún error en el mismo. No exis¬ 
ten instrucciones INPIJT ya que 
hace uso de la instrucción IN para 
poder presionar varías teclas si¬ 


multáneamente (líneas 400, 410, 
500 y 510). Tampoco había un sal¬ 
to de instrucciones de la 30 a la 62. 
Les enviamos por correo una copia 
del listado. 

La tabla de juego de caracteres 
del programa 64 Caracteres del nú¬ 
mero 1 tenía un fallo en la línea 
31984 que debe ser; 

319840,14,2,2, 14,2, 14.0. 
por lo que al presionar el “3” apa¬ 
recía un “2”. También quería pre¬ 
guntarles cómo se puede colaborar 
en su revista. 

Miguel Urosa Ruiz 
Madrid 

0 Efectivamente, salió cambiado 
el 2 por el 8. Todospectrum está 
abierta a la colaboración de todos 
sus lectores para cualquiera de las 
secciones que la integran o cuales¬ 
quiera otros temas que puedan ser 
de interés. Sólo tiene que ponerse 


en contacto con nosotros en el telé¬ 
fono (91) 733 74 13 o por carta a la 
Redacción de Todospectrum. Bra¬ 
vo Murillo, 377, 5.” A. 28020 Ma¬ 
drid. 

En el programa 64 caracteres 
del número I, ¿la carga de caracte¬ 
res se ha de realizar antes o des¬ 
pués del otro programa? 

Juan Esté vez 
San Sebastián 

0 Primero se ha de realizar la 
carga de caracteres y después gra¬ 
barlos con el nombre “caracteres” 
de la forma: 

SAVE “caracteres” CODE 
31064,1536 

para que la línea 40 del siguiente 
programa los cargue sin problema. 
Esta instrucción puede incorporar¬ 
se en el programa de carga de ca¬ 
racteres, por ejemplo como la ins¬ 
trucción 95. 
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SUSCRIBASE 
POR TELEFONO 

* más fácil, 

* más cómodo, 

* más rápido 

Telf. (91) 7337969 

7 días por semana, S4 horas a su servicio 


SUSCRIBASE A 
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CécUliocui^ cU umAsé 


Tras una pequeña presentación, 
el codificador le pedirá el texto que 
desee codificar al morse. No tenga 
reparo en introducir textos muy 
largos, o en utilizar cualquier tipo 
de caracteres. Mayúsculas, minús¬ 
culas, números, espacios, y todo 


tipo de signos le serán permitidos. 
Después habrá de introducir la ve¬ 
locidad con que desea que aparez¬ 
ca el mensaje en pantalla (le acon¬ 
sejamos que elija la más rápida que 
aún así es bastante lenta). Para la 
impresión tiene dos opciones: ob¬ 


tener únicamente el mensaje en 
morse o bien acompañado del tex¬ 
to. La primera opción es más inte¬ 
resante si desea dominar la codifi¬ 
cación. 

Autor: Jordi Tejedor Duran 16K 


19 REM 


***************** 
CODIFICADOR MORSE 
POR JORDI TEJEDOR 
MARZO DE 1064 


S6 BORDER 2: 
36 CLS 
40 PRINT RT 
ODIFICADGR 
$0 PRINT RT 
E R APRENDER 
DUCIR TEXTOS" 
66 PRINT RT 
LO TIENES QUE 
L TEXTO, eaco- 
IDAD DEL 1 AL 
61 ASI LO 
DALXDAO CON 


PAPER 0: INK 7 

4,4 j"MOLA 80Y EL C 
MORSE" 

S,4j"PUEDO AYUORRT 
M0R8E 0 A TRA 

12,4;"PARA ELLO 80 
INTRODUCIR E 
OER LA JELOC 
9, Y E3C0GER 
DESEAS LA MO 
LETRAS" 



78 PRINT RT 21,0; FLASH 1¡"PRR 
A CONTINUAR APRIETA UNA TECLA" 

89 PAUSE 0 
99 CLS 

100 INPUT "ESCRIBE AQUI EL TEXT 
0 QUE DESEASCODIFICAR AL MORSE 


110 INPUT 
DE 1 A 9 
MAS RAPIDA 


; LINE ti 

SCRXBE LA UEL0CX0A0 


ESC 

RECUERDA QUE 9 ES LA 

ii-1 ^ XNE v % 

lis IF LEN vl>l THEN PRINT RT S 
1,0; FLASH lj" DATO ERRONEO 
ÓEEP 8,-10: CLS : 00 TO II# 

120 IF CODE Vi<49 OR CODE Vi >57 
TMEN PRINT AT 21,0; FLASH l;" „ 
DATO ERRONEO ": OEEP 8,-10: CLS 
; 00 TO 110 

130 LET V «URL Vi _ 

140 INPUT "PUEDES ESCOGER ENTRE 
(USOLO ESCRIBO EL M 
ORSE EN PANTRLLR 

(2)DEBAJO DEL MORSE 
ESCRIBO LR8 LETRAS TARDUC 

IDAS 

” " LINE fl É 

145 IF r»l<> "1" RND mí O "2" TMEN 
PRINT RT 21,0; FLASH U" MITO 
ERRONEO ": ¿EEP 2,-10: CLS ! 00 
TO 140 

160 LET m»UAL mi 
1S0 REM 

BUCLE DE PARTICION DEL 
TEXTO EN LETRAS 

170 LET X *0: LET W >0 

160 FOR n-1 TQ LEN ti __ 

190 LET bl*tl<n): LET iaCODE bl 
290 IF I* «2 THEN PRINT RT X+l,y; 

C 2ll Íf R Í , ? 91 > AND i >64 TMEN LET i 
m\ + 38 

820 IF (i >96 AND i <123) OR 102 
OR (i>48 RND i <601 OR íl>38flND 
i<421 OR 1«44 OR i*63 THEN 00 S 
UB (4000+10*11: 00 SUB 8000 
230 IF X *20 THEN STOP : CLS i L 
ET X«0 
240 NEXT n 

950 INPUT "OTRO TEXTO PARA TRAD 





















a rabas 

4+7® LET e*a"811813“: RETURN 


OR h M"N“ THEN 8T 


SI® IF h!■"* M OR h*«"S" THEN CL 

S : 50 TO 10® 

08® IP hi-"n u 
OP ; 60 TÚ 1 
99® PRINT RT 81,0; FLASH X ¡" D 
RTQ ERRONEO ": BEEP 5,-10; CLS 

: So TO oa® 

999 REM 

SUBRUTINR PUNTO 


100® BEEP 0*85,80: PRINT RT x 
LET y mu+ 1: IF y>31 THEN 
U «y-38: LET X «X 4-tft 
1008 PAUSE 13/v 
1010 RETURN 
1999 REH 

SUBRUTINR PAVA 


lKI ¿59® 


PRINT AT X,U;"- 
y>31 THEN LET y 


80®0 BEEP 0.8,0; 

LET y■y +1: IF 
i-38; LET xaX+lli 
PAUSE 13/V 
8010 RETURN 
8999 REM 

SUBRUTINR FIN DE LETRA 

300® PRINT RT x ,y;" ": PAUSE 80/ 
v: LET y *y +1 : IF y>31 THEN LET y 
aü -38: LET X «X +m 
3010 RETURN 
3999 REM 

SUBRUTINR ESPACIO 


ib 


' "i PAUSE 

y >31 THEN LE 


4®0® PRINT RT X 
0/V; LET y »y+8; 

S ay-38: LET xax+m 
10 RETURN 
4850 REM 

ASIGNACION DE LOS 
DE MORSE 1 - . 

9 m FIN LETRA 
4 m ESPACIO 


» 


SIGNOS 


4380 LET 
4390 LET 
440® LET 
4410 LET 
444® LET 
4460 LET 


C t■"43": RETURN 


e«» M lS2&ai3 

C•■"8138133 
cia"3188183 
c¡■"8811883 
cSa"iai31&3 


RETURN 

RETURN 

RETURN 

RETURN 

RETURN 


HOLA sov 
MORSE 


EL CODIFICADOR 


PUEDO AYUDARTE A RPREÍÍSS? 
MORSE O R TRADUCIR TEXTOS 

PRRA ELLO SOLO TIENES QUE 
INTRODUCIR EL TEXTO, ESCO' 
GER LA UELOCIOAD DEL 1 AL 
9, V ESCOGER SI.ASI LO 
DéSEAS LA MODALIDAD CON 
LETRAS 


449® LET 
4490 LET 
4500 LET 
4510 LET 
458® LET 
4630 LET 
454® LET 
4550 LET 
456® LET 
4570 LET 

¿1S® LET 
4630 LET 
4970 LET 
4990 LET 
4990 LET 
5000 LET 
5010 LET 
603® LET 
503® LET 
5040 LET 
5050 LET 
5060 LET 
5070 LET 
5080 LET 
509® 

51®0 
5110 
5180 LET 
5130 LET 
5140 LET 
5150 LET 
5160 LET 
5170 LET 
5160 LET 
5190 LET 
5800 LET 
5810 
5330 


LET 

LET 

LET 


LET 

LET 


7990 REM 


\\ 

i 

n 

C 
C 

c 
c 
c 

n 

C* 

c« 

G 
C 
C 

c 
c 

¡\ 

c 
c 
c 
c 
c 

c! 

w 

c* 

n 


"883383" 
"188883": 
"118883": 
"111883": 
"111183": 
"111113"; 
"811113": 
“881113"; 

"888113"; 
"888813"; 
"8881113" 
"8181313" 
"1188113" 

"183": RETURN 
"81113": RETURN 
"81813": RETURN 
"8113": RETURN 
"13": RETURN 
"11813": RETURN 


RETURN 

RETURN 

RETURN 

RETURN 

RETURN 

RETURN 

RETURN 

RETURN 

RETURN 

RETURN 

RETURN 

RETURN 

RETURN 


8313" 
"11113 
" 113” • 
"18883 
”8183": 
"18113" 
883" 


RETURN 

RETURN 

RETURN 

RETURN 

RETURN 

RETURN 

RETURN 


"813": RETURN 
"8883": RETURN 
"18813": RETURN 
"88183"; RETURN 
"1813“: RETURN 
"1113": RETURN 
"83": RETURN 
"1183": RETURN 


"11183" 
"1833": 
“81183" 
"81883" 
"38113" 


RETURN 

RETURN 

RETURN 

RETURN 

RETURN 


LLAMADA A LAS SUBRUTXNAS 
DE SIMBOLOS I SONIDOS EN 
MORSE 


FOR jMl TO 7 
10 TC 


800® LET c*® 

8010 IF t*3 THEN 00 TO 805® 
8080 LET CaUAL CftJ) 

803® GO 3UB C #1000 
804® NEXT j 
8060 RETURN 


MPARA CONTINUAR APRIETA UNA TECLA 


O 


«p*p a j 1^* x ** p i ■ * ■ t " ■ 

P E R A C 10 


N 


■ “ 4 1 

C A N c 


• i ** * 1 

EL A 


ABCDEPGHIJKLMNOPORSTU 
ABCDEFGHIJKLMftOPQRSTU 































A \msXm 



Con este programa podrá ajustar por mínimos 
cuadrados datos experimentales obtenidos aleatoria¬ 
mente o por encuestas estadísticas a una determinada 
curva exponencial {a * EXP (b*x)),potenciaI (a*x 1 b) 
o a un polinomio. Una vez terminado el proceso de 
ajuste, se da la forma explícita de la función y el 
coeficiente de correlación “r", representándose la 
nube de puntos y la curva a la que se han ajustado los 
datos. Se obtiene además la suma de las diferencias 
cuadráticas entre el dato experimental y el interpo¬ 
lado. Pruébelo con este ejemplo: 

Número de puntos — 5 


X 


2 

3 

10 

5 


3.5 

4 

4.5 
12 

8 


Le recomendamos que no sea demasiado egoísta y 
lo comparta con sus amigos, para que estén en 
igualdad de oportunidades. Así todos acabarán antes 
su trabajo y tendrán tiempo para tomarse unas copas, 
¿no le parece buena idea? 


Autor: Julio Gómez Herrero 


16K 


15 CLEAR 33767: LET Er= 0 : LET 
LE = 0 : LET ÉL=0: LET AF=0: LET FA 
=0: PRINT 

30 PLQT 0,160: DRAU 355,0 
40 LET K.J=0: INPUT “numero d* 
pun tos■";nú» 

55 DIM X(NUM): DIM Y(NUM) 

60 GO 5U5 66 : LET KJal 
69 FOR U a 1 TO 5: BEEP .1,49*RN 
D: NEXT U: INPUT "DESEA CORREGIR 
0 OUITRR ALGUN DRTO: C*1,Q=2, S 
EGUIR ADELANTE*®, X = > < *Y* 3 ?,CAM 6 
IRR SOLO UN ORTO 
SY*5, ORDENAR DE 


é 


;h 

73 IF 


DE X 0 Y, 5X*4 
MENOR R MflYORi 


IF 

IF 

IF 

IF 


FR*0 

Fñ=2 

FR*3 

FA*5 

Ffi -6 


THEN 

TMEN 

THEN 

ThEN 

THEN 


GO 

GO 

GO 

GO 

GO 


TO 

TO 

TO 

TO 

TO 


110 

105 

9000 

83 

9100 

NUMERO DE 

XXj “) ■ 


0 


76 

77 

78 

79 

30 INPUT "INTRODUZCA 
DATO Y LUEGO EL DATO 
X íli : IF FR*4 TMEN 
83 INPUT "Yi"; I; " ) * 

86 PRINT *' X’Vr 
DRAU 255,0 

93 FOR I»1 Tü NUM 

94 IF KJ«0 THEN INPUT 
BEEP .1,-7 

96 PRINT I; TAB 2; " |" ; X ti) ,Y (I) 
NEXT I 

97 IF KJ*0 ThEN RETURN 

98 GO TO 69 


GO TO 96 

; Y ti) 

PLOT 0,16 


X ti) ,Y ti 


105 IF FA*2 THEN INPUT "TECLE E 

LEMENTOS'MSi'■/" J SI .... 

106 FOR U*IS TO SI: LET ARbXíU) 

: LET BR=Y (U) : LET XÍU)*X(NUM): 

LET Y(U)=YÍNUM); LET XÍNUM)*RR: 
LET YÍNUM)=BR: LET NUh*NUM-l: NE 
XT U: GO SUB 86 : GO TO 69 
110 DIM CÍ 6 ); DIM F( 6 ): DIM RÍ 6 
, 6 ): LET dü*0: DIM d( 6 ): DIM S (6 
): DIM b( 6 ): DIM p$¡6,28): DIM T 
( 6 , 6 ) 

130 INPUT "PQLINOMIAL(P), EXPON¬ 
ENCIAL (EXP) , POTENCIAL(POT)"¡ UJ 
136 LET EXP *0; LET P = l: LET POT 
*2 

140 IF UAL U**l THEN GO TO 200 
145 IF UAL U«=2 THEN FOR 1*1 TO 
NUM: LET X(I)*LN X(I): NEXT I 
150 FOR 1=1 TO NUM: LET Y(I)*LN 
Y (I) : NEXT I: LET GRADÜ*1: GO T 
O 210 

200 INPUT '■«fídO", arado 

205 IF GRADÜ=0 ThEN GO TO 3000 

210 LET so=num 

220 LET PQ*1: LET bo*0 

230 FOR i»l TO nufft 

240 LET bO*bO+Xt¿) 

250 NEXT i: LET Bü*BQ/SO 
260 LET p| i 1 ) *"x-"+STRÍ bo 
270 FOR i *1 TO nuffl: LET x *x (i) 
280 LET S (1) ■£ (1)+UAL P$Í1)*UAL 
P * (1) 

290 LET b (1) =b (1) +X (i ) «UAL P$(l 
)«UAL p$(1) 

300 NEXT I: LET B (1) *B (1) /5 (1) 
302 FOR i>1 TO nuffl: LET dOadO+y 
(i) /i O: NEXT I 

310 LET p|(2)*"(X-b(1))«UAL P*( 
1) -S (1) /SO «P O " 

320 FOR j>S TO grado 
330 FOR 1*1 TO rium: LET x*xíi) 
340 BEEP .1,7: LET &(j)*4íj)+UA 
L P|(j)«UAL P$( 4 ) 

350 LET bíj) *b(J)+x (i) «UAL P*íj 
)«UAL Pí(j) 

360 NEXT i: LET B Í J) =BCJ) /5(J) ; 
LET C i ji =S i j ) /S £ j -1) 

370 LET p* Í j + 1) =" (X-b ("+5TR* u + 
‘) I «UAL PSCtSTR* j +" ) -C ( " +STR t 
j + " i «UAL p t í " +STR$ (j-l)+ ,, ) M 
390 NEXT j 

400 FOR J*1 TO GRADO: FOR 1=1 T 


w -- 

X 

Y 

IIT 

Trs 

2 ¡2 

4 

3 ¡3 

4.5 

4 ¡10 

12 

5 ¡5 

S 




















V 


T 

N 


■J NUM: LET XsXdl: LET D(J)sDíJ) 
+YÍI)*UAL P*ÍJ)/S(J>: NEXT I: NE 
XT J 

410 LET A12,1)*-BÜ: LET T (2,1) as 
-'BÜ*D i 1) +DÜ 

44.fi LET flil.llsi: LET T(1,1)*DÜ 
: FOR 1=2 TO GRADO+1: LET fl£I,I) 
si; LET TÍI,I)eDtl-l): NEXT I 
445 LET FtíisSÍD/SO; FOR 1=2 
O GRADO: LET F i I) =5(1) /S í 1-1) : 
EXT I 

450 FOR 1=2 TO GRADO: LET A(I + 1 
, 1) = -A ti, 1) #6 (1-1) -F (1-1) *A ÍI-1, 
ls : LET T (1 + 1 , 1) =A íl + l ( 1) *D ÍI) +T 

( 1 , 1 ) 

460 FOR J=2 TO I: LET AiI+l,J)= 
AtI,J-l>-fitl.ü)*6(1-1)-F(I-l)*Aí 
1-1,J): LET TÍI+1,J)=fifl+l,J)*D< 

Ií +T (I, J) 

470 NEXT J: NEXT I 
500 LET N=GRADG+1: FOR 1=1 TO N 
+ 1: LET F(I)*T(N,I): NEXT I 

2000 CLS : IF N=2 THEN LET SXX=0 
: LET SYY = 0: FOR 1 = 1 TO NUM: LET 

5 Y Y = SYY + (Y (I) -DO) * (Y (I) -DO) /NUM 
: LET SXX=£XX+ (X (I) -BO)*(X (I) -BO 
i/NUM: NEXT I: LET COE=SOR (AB3 
(F (2) *F (2) *SXX/SYY) ) : PRINT BRIG 
HT 1J"ft";COE 

2001 IF URL U*=0 THEN GO 
2003 IF URL U* = 2 THEN GÜ 
2005 FOR 1=1 TÜ 10: BEEP 

NEXT I 

2010 PRINT "Y="; Fti);" 

IF N«2 THEN PRINT ttl¡"PULSÉ 
TECLA": PRUSE 0: GO TO 3000 
FOR 1*3 TO N 

IF F vI) > = 0 THEN GO TO 2070 
PRINT F(I); 

GO TO 2060 
PRINT "+" ; F 
NEXT I 
GO TO 3000 

IF n=2 THEN LET FUN*Fil)+FÍ 
00 TO 3250 

F(1)=EXP F(1> : FOR A*1 


ro ycunas 


TO 2500 
TO 2600 
.1,1*2; 

F (2) 


"txr; I-l; 

(I) ; 11 *XT"; l-l; 


X"; 

UNA 
£030 
2040 
2050 
2060 
2070 
2050 
2090 
2193 
2) *G 

2510 LET Y(R)=EXP Y(R): NEXT R 
2520 PRINT "y *";F(1);"*€ + ";F Í2) ; 
"*X": GO TO 3000 

2510 LET F(1)*EXP Fll): FOR R=1 
TO NUM; LET Y(R)=EXP Y (R) : LET X 
(R> =EXP X(R) i NEXT R 



■-= 0,98735514 __ 


MAXIMA X=10 
MINIMA Xsl 
TNCOEMFNTO DE X=0.9 

MAXIMA YalS 
MINIMA Y=3.5 
INCREMENTO DE Y=0.85 


2620 PRINT "yF(1) ;" *(xt F (2) 

j ) 

3010 LET ERs0 : GÜ SUB 5000 
3020 LET DIFX =MAXX-MINX 
3030 LET DIFY =MRXY-MINY 
3040 PRINT : PRINT ; PRINT : PRI 
NT "MAXIMR X = "j MAXX: PRINT "MINI 
MA X=";MINX 

3050 PRINT "INCREMENTO DE X=";DI 
FX/10 ' 

-'"MñXXMñ Y = " i MAXY : PRI 
NT "MINIMA Y*";MINY 
3070 PRINT "INCREMENTO DE Y=";DI 
FY/10 

3 ®S0 p RINT ttl;"Pui.s4 una tecla": 
PAUSE 0: CLS 

3092 PLQT 255,10: DRAU -245,0: D 

RALI 0,165 

3095 FOR 1=0 TO 9 

31gg PLOT 15+1*24,7: DRAU 0,6 

3105 PLOT 7,15+1*16: DRAU 6,0: N 

EXT I 

3120 FOR 1=1 TO NUM 

3130 LET TANTx=100*(XíI)-MINx)/D 

3140 LET PTOSXeÍ240*TANTX/100)+1 
4 

3150 LET TANTYs100*(Y(I)-MINY)/D 
IFY 

3160 LET PTÜSY = 14+ C160*TftNTY/100 

3165 IF *f =1 THEN PLOT ptúsx.pto 
sy ; ,ORAU 10,0: DRAU -20,0: DRAU 
DPPW 0.10: DRAU 0,-20: GO 
TU 3277 

3170 CIRCLE PTOSX.PTOSY,1 
3175 NEXT I; LET COU=0: LET LE=0 
3177 IF GRADO=0 THEN GÜ TO 3277 
3180 LET L=0 

3195 IF UAL U<=0 THEN LET F|="FC 
1) *EXP iF (2) +5) " : GO Tü 3210 
3197 IF UAL U$ = 2 THEN LET F*="F( 
1) *Gt F (2) " : GO Tü 3210 
3193 LET F* = "Fti) +F (2) *G": IF N = 
2 THEN GO TO 3206 

3199 LET F*=F*+"+F(3)*G*G": IF N 
=3 THEN GO TO 3210 

3200 LET Ff=F$+"+F (4) *G*G*G": IF 
N = 4 THEN GÜ Tü 3210 

3201 LET F(=F$+"+F Í5) *G*G*G#G": 

IF N =5 THEN GÜ TO 3210 

3205 LET F*=Fí+"+F(6)*G*G*G*G*G" 

; IF N =6 THEN GO TO 3210 











































vt 


w g¡rOMús 


3220 FOR G=MINX TO MRXX STEP (DI 
FX/240) 

3250 LET PRRTEY =(160* (URL F*-MIN 
Y)/ DIF Y i+15 

3260 IF (PRRTEY <0i OR (PRRTEY>17 
5) THEN LET C*C+1: GÜ TO 3275 
3270 PLOT c+15,partey: LET CsC+1 
3275 NEXT G 

3277 INPUT "ESTIMACION (N PARA S 
fiLIR) Xs";G$: LET G=UAL GS: GO S 
UB 4015 

3273 LET tf*l: INPUT "PARA MARCA 
R ALGUN PTO INTRODUZCA SU NUMERO 
(N PARA SALIR)I=";i*; IF i*="N" 
THEN LET ER=0: GÜ TO 3233 
3230 LET i«UAL i*: GO TO 3130 

3233 INPUT "EVALUACION/ÍSI=1,NO= 

0) ", ÉUA: IF EUA=0 THEN GO TO 32 

21 

3234 LET DE5=0: FOR 1=1 TO NUM: 
LET G*X(I) 

3233 PRINT "f ("; X (I);") = "i URL f% 

; BRIGHT Ij"DIFs"¡UAL r*-Y(I): L 
ET DESUDES + (UAL f*-Y (I) ) *(UAL f$ 


3^90 NEXT I: PRINT 
UIACION=";DES 

3291 INPUT " CORREGIR 
LGUN DATO : 0=1, 0=2, 

3" FA 

3292 IF FA < >0 THEN FOR 1 = 1 
1: LET F (I) =0: LET 5 (I) =0: 

I. LET AF = 1; GÜ TO 36 

3299 BEEP 1.3; INPUT " NUEUO 
5TE :51=1, NO*0 ",RE 

3300 IF RE = 1 THEN GO TO 110 
3310 IF RE = 0 THEN STOP 
4010 INPUT "ESTIMACION (N PARA 
ALIR) X=";GÍ: LET G=UAL G* 

4015 IF G$ ="N" THEN RETURN 
4020 PRINT BRIGHT 1 i AT 0,4," 

"; AT 0 , 4 ; 

£(■’; G; ") ="; UAL F$ 

4030 LET TANTX=100*ÍG-MINX)/DIFX 
4040 LET PTQSX* í240+TANTX/100) +1 


) 


BRIGHT 1;"DES 


O QUITAR A 
NO =0, X/Y = 


TO N + 
NEXT 


AUU 


S 


4050 LET PARTEY=í160*(URL F*-MIN 
Y)/DIFY)+15 

4060 IF PTOSX <0 OR PTQSX > 255 OR 
PRRTEY <0 OR PRRTEY >175 THEN GO T 
O 4000 

4070 PLOT PTOSX,PARTEY; DRAU 5,0 
: DRAU -10,0; DRAU 5,0; DRAU 0,5 
DRAU 0,-10; GO TO 4005 
5030 LET MAXX=X(1); LET MINX=Xil 
): LET MAXY=Y (1) : LET MINY=YÍ1) 
5040 FOR 1=1 TÜ NUM 
5050 IF XÍI) >*MAXX THEN LET MAXX 
=X i I) 

5060 IF XÜMsMINX THEN LET MINX 
=X (I) 


5070 IF Y(I) > =MRXY THEN LET MAXY 

=Y (I) 

5050 IF Y(I) < =MINY THEN LET MINY 
*Y (I) 

5090 NEXT I 
5100 RETURN 

9000 FOR i=l 10 NUM: LET A5D=YÍI 
): LET Y (I) = X í IJ : LET X(I)=RSD: 
NEXT I; GO TÜ 86 

9100 LET n.u=num: LET IlíiaXX =X í 1) : 
LET minx =X (1) 

9105 FOR i=l Tü nurn 

9106 IF ffl i nx > x(i) THEN LET minx = 
x (i ) 

9107 NEXT i 

9110 FOR J = 1 TO nUni 

9120 FOR i=1 TO nu 

9130 IF maxx<*x(i) THEN LET maxx 

=X (i ) : LET d =i 

9140 NEXT i 

9150 LET (ng *y (d ) 

9160 FOR i= d TO OU-1: LET Xí i > =x 
(i+1) : LET y (i) =y (i+1) ; NEXT i 
9170 LET xínu)=maxx: LET y(nuí=m 
y: LET nu *nu-1 

9130 BEEP .1,7: LET mixx=miHX; N 
EXT j; BEEP 1,1: GO TO 36 
9900 FOR 1=1 TO num: LET x(i ) =a ( 
i) : LET y (i)=b(i) ; NEXT i 
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VENTAMATIC 


presenta 

EL CARNET DE SOCIO DEL CLUB NACIONAL DE USUARIOS DE LOS ZX 


(ZX81, ZX-SPECTRUM Y QL) 


Y SUS EXTRAORDINARIAS VENTAJAS 


Boletín informativo exclusivo para los socios. 

' Servicio telefónico de consultas. 

Fabulosas ofertas especiales. 

Descuento del 10% y plaza preferente en los cursos 
de informática de VENTAMATIC en Barcelona. 

' Grandes descuentos para los socios de hasta el 35% 
en sus compras de ordenadores, periféricos, acce- 
, sorios y programas (SINCLAIR, COMMODORE, 
ORIC, etc.) a VENTAMATIC. 

' Sorteos de programas en cada boletín. 

' Posibilidad de comercializar los programas realizados 
por los socios. 

Regalo a elegir ai formalizar la inscripción. 




«ESTE ES 
MI CLUB 


«EL PRIMERO 

Y CON MAS SOCIOS DE ESPAÑA 


ÍNDICES ULTIMOS NUMEROS BOLETINES 


PT.* 10 

EDITORIAL, APUNTES DE PROGRAMACION (1), REAII7ACIONES DE LOS SOCIOS, CON¬ 
CURSO DF PROGRAMAS, SOFT StARS, NOVEDADES. SOFT-BANK, SPECTRLCOSJOYS- 
TICKS (I), EL QL, CORRESPONDENCIA DEL CLUB, BOLSA DEL CLUB. PROGRAMAS <Pri- 
vatiiación de programas - Laberinto- ■ Conservación dé gráficos en memoria - 4 tr> r*ya - 
QuInicia ahorro - Reloj - Cassette - Seguridad. - Ordenación). 

NT II 

EDITORIAL, APUNTES DF PROGRAMACION (II), REALIZACIONES DL LOS SOCIOS, CON 
CURSO DF. PROGRAMAS, SOFTSTARS, NO VE DA DES .SO FT-BA NK, SPECTRUCOS, JOYS 
TICKS (II). LOS MICRODRIVES, CORRESPONDENCIA DEL CLUB. BOLSA DEL CU B, IN¬ 
FORMATICA Y ENSEÑANZA, GRAFPAD (Tablero gráfico), El. RINCON DEL CODIGO MA¬ 
QUINA, RUTINAS DF LA ROM, ENTREVISTA CON MATTHEW SMIT1Í PROGRAMAS (Zylo^ 
ws - Trun - Simulación dé reconocimiento de Voí - Número c - caractcrcij - (gráfica SD - 
Slalom espacial - Batalla Naval). 

NT 12 

EDITORIAL. APUNT ES DE PROGRAMACION (lli). REALIZACIONES DE LOS SOCIOS, CON 
CURSO DE PROGRAMAS, SOFT STARS, NOVEDADES, SOFT BANK, EL RINCON DEL CO 
PIGO MAQUINA, SPECTRUCOS, CORRESPONDENCIA, BOLSA DEL CLUB, BIBLIOGRA¬ 
FIA DEL SPECTRUM, LAS NUEVAS REVISTAS INFORMATICAS, COMENTARIO A LA EN 
■CUESTA DEL NUM. I OTEOLAS DE FUNCION EN EL SPECTRUM,ORGANIZACION DE LA 
MEMORIA ÉN EL ZX-SI, CONSULTAS, TRUCOS CON EL MfCRODRIVF-, TRUCOS CON EL 
ZX-S1, PROGRAMAS (Tragaperras - Reloj en tiempo casi real - barcos - Ruleta - Rtvuelto 
Rtrmimerador Laberinto 3D - Super Savt - Zt>om de Fuñe iones - El Canal del Llohregac 
- Crines). 
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ROSAS (Gerona), o personalmente en VENTAMATIC - Exposición, Venta y Cur¬ 
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REGALO (escoger uno soto por inscripción) 
l ibro -Guía práctica del BASIC dd ZXBl y dd ZX SPECTRUM 
Funda de plástico para ZX-SPECTRUM 
Paquete de cinco cimas vírgenes C-15 
Revista en cassette SPECTRUMANlA N.° 1 
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■n 

l D 

Id 

□ Juego de plantillas para teclado de ZX-SPECTRUM 
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| APELLIDOS; 

| CALLE: _ 


NT 


CODIGO POSTAL: 
PROVINCIA 


i 

I En vio 2.50ü pías, mediante: 
□ T alón adjunto. 

□ Giro postal N,°: _ 


POBLACION: 


de fecha: 


P V P. 
.200 ptas. 
400 ptas. 
500 ptas. 
750 ptas. 
100 ptas. 
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da resolución gráfica. Está estruc¬ 
turado en seis bloques: rutina prin¬ 
cipal, comecocos, inicialización, 
instrucciones gráficas y laberinto 
(líneas de REM sombreadas). De 
forma un poco más detallada: 

Líneas 

134-136 Comienzo. Definición de 
gráficos 

001-007 Inicialización de varia¬ 
bles 

009-016 Rutina principal 
018-040 Movimiento comecocos 
042-044 Nivel de dificultad 
045-053 Controles de manejo 
054-056 Marcadores 
058-068 Instrucciones de juego 
082-108 Definición de gráficos 
110-132 Diseño de laberinto 
014-015 Ubicación aleatoria del 
fantasma 

057 Música al comer al fan¬ 
tasma 

108 Borrado de líneas inferio- 


Una vez introducido no lo eje¬ 
cute con RUN. El programa está 
preparado para ser grabado con el 
comando SAVE “Comecocos” 
LINE 134, como se indica en la lí¬ 
nea 133. Ejecute GOTO 133 y 
arranque de cinta o bien GOTO 


res 


Esta es una versión de las mu- mente realizado en BASIC, por lo 
chas que se han hecho sobre el cé- que es fácil adivinar que no es muy 

lebre “comecocos”. Está entera- rápido, pero presenta una estupen- Autor: Andoni Martín 48K 


KUTINñ PR I NCIPhL 


i oo sue 

£ LET pp*0: LET t-aee 

3 LET 11-18: LET bl«18¡ LET 1 
3-11: LET b3-bl: PRINT INK 6 i AT 

• 1,bl; "C“ 

4 OO SUB 0069 

6 SO 6UB 0109 

e oo sue 004 a: oo sub 0049 

7 LET bl-9: LET 118 -0 
9 REM 
9 FOR nCTTO dd 

10 GQ SUB 0019: LET 00 

SUB 0054 

11 1F t-0 THEN OO TO 0069 

1& XF «lamí RND bl-fh8 THEN LET 
t - t + (40-ddI : LET pp-pp+(40-dd) : 
OO SUB 0094: OO SUB 0097; 00 TO 
0014 

13 NEXT i: PRINT XNK 4;RT m 1,n 

3 

14 LET «1-XNT ÍRND#19Í : LET (18 
«INT (RND*38): IF RTTR (Id 1,1*81-3 

THEN OO T0 0014 _ __ 

19 PRINT PRPER 1; INK Sí FLA6H 
1; BRIOHT 1; RT mi ,(18; "i" 

16 OO TO 0099 

17 REM 


AND 

AND 


19 LET Z0-INKEY 

19 IF Z 9-qf(3) 

O T0 0084 

80 IF Zt-q*(i) 

OO TO 0037 

ai IF Z4*q«ta) AND 
O T0 0039 

aa IF z§-qi(4I AND 
OO TO 0033 

83 RETURN 

34 IF RTTR (11, bl- 
T PP-PP+1: LET t-t+1 
4: BEEP .01,85 

39 IF RTTR (11,bl- 
TURN 

86 LET bl-bl-l: OO 
ETURN 

87 IF RTTR (11,bit 
T pp.pp+1; LET t-t + l 
4: BEEP .01,35 

86 IF RTTR íll,bl+ 
TURN 

89 LET bl-bl+1: 00 
ETURN 

30 IF RTTR (11-1,b 
T pp*pp+l: LET t-l + 1 




01,as 


b1>0 THEN O 
bl <31 THEN 
ll>0 THEN 0 
11<19 THEN 

II«4 THEN LE 

: GÜ SUB 006 

1)-3 THEN RE 
SUB 0039: R 

II*4 THEN LE 

; 00 SUB 006 

11«3 THEN RE 
SUB 9037: R 

1)*4 THEN LE 

: OO SUB 00B 


c qrvtcDcD $ 
























í*l-l,bl)a3 THEN RE 
00 SUB 0336: R 


31 IF ATTR 
TURN 

32 LET *la*l-l 
ETURN 

33 IF RTTR (*1 + I,bl)a4 THEN LE 
T PP-PP+1: LET t«t+l: 00 SUB 606 
4: BEEP .01,36 

34 IF RTTR (*1+1,41)«3 THEN RE 
TURN 

36 LET «la*1+1: 00 6UB 0040: R 

ETURN 

36 RETURN 

37 PRINT INK 6;AT * 1,blj"#'" jRT 

Tf 


•l,bl;"t";RT *2,b2;" ": LET *8* 
*1: LET ba«ol: RETURN 

38 PRINT INK 6;AT «1,bl;"§'" ;RT 

* 1, blj "H" i RT *8,48:" LET *8- 

•1: LET b&abl: RETURN 

39 PRINT INK 6;AT •1 *bl;"f";RT 
•1,bl;"1";RT *a,ba;- ": LET " 

*1: LET bfiabl: RETURN 

40 PRINT INK A; RT al.blj 

rétuRn 


*S ■ 

#" ’ RT 

*1, bl; "H" ; RT *á, bá] n ' ri r _ LET *8a 


1NILIrL iSRCTDN 


* 1: LET baábT 

48 prInWReR i; flT M,ft;"Nivl 
L dt dificultad C1/5) ?" 

43 LET U *aINKEY*: IF W*<"1" 0R 
w*>"5" THEN 00 T0 3043 

44 BEEP .1,80: LET ddaURL W|: 
LET dd« (40-(dd + 1) *6) : 00 SUB 610 
8: RETURN 

48 PRINT PRPER IjftT 80.0j’ , COPiJ 


:";q*(i) j y:"¡q*(8S;" 
3) , á: f, jq«T4) 

46 PRINT PRPER l;"0Ui*f«» C* 


Ittb 


I 


i * r lo ?“ 

47 LET W*aINKEY* 

48 IF wW'n" OR Ut<"N" THEN Be 
EP ,1,30: 00 8UB 0166: RETURN 

49 IF #ÍO"l" AND UI*O m S" THEN 
00 TO 0047 

50 BEEP .1,86: 00 SUB 0108: FO 
R i»l TO 4 

51 PRINT PRPER IjAT 80,i*6íCHR 
(144+1);":";: BEEP ,1,16: PAU5 
10 

58 PAUSE 0: LET q*íi)aINKEY*; 
BEEP .1,30: PRINT PRPER l;q«íi) 
63 NEXT i: GO SUB 0108: RETURN 
54 PRINT RT 80,6;" P0INT5: ";p 

58 IF t >999 THEN LET t*999 

56 PRINT RT 80,20.:" POWER: "jt 

; ": RETURN 

57 FOR i»1 TO 3: FOR jal TO 10 
BEEP .01,10+J+5+Í: NEXT j- NEX 

T i: RETURN 

58 FOR 1-6® TO -86 STEP -1: BE 
EP .01,1: NEXT i 

59 PRINT PAPER 1;RT 18,0;**: O 
O SUB 0108 

66 IF pp>rc THEN LET rc«l 
81 LET . ‘ ’ ; 

"+STR* pp 


>p>CC THEN LET i*Capp 
P*■-I: LET b*a" POINTS; 
>p+"/RECORD: ,T +8TR| rc+" 


63 PRINT PRPER 1;RT 81,6;"Otr* 
P«rtidit* 7" 

63 LET P* ap* +1: IF P*a8 THEN L 
ET p«a0 

64 PRINT PAPER p*; INK 9;RT 19 
,(38-LEN bl)/2;b* 

85 BEEP .01,7 *P* 

86 IF INKEYia"*" OR INKEY$a"8" 
THEN 00 TO 6001 

67 IF INKEY*a"n" OR INKEY*a"N" 


THEN BORDEA 0: PAPER 0: CLS : P 
RUSE 0: STOP 

68 00 T O 0063 _ 

89 REM 

70 LET X*a" TIENES QUE INTENTA 
R COMER EL MAXIMO POSIBLE DE CAR 
AMELOS Y FANTASMAS ANTES DE QUE 
TE QUEDES SIN PILAS * * « PULSA 
UNA TECLA PRRA EMPEZAR * « « TIE 
NE3 QUE INTENTAR COMER" 

71 INK 0: PLOT 33,7: DRAU 86*8 
+1,0: DRAU 0,9; DRAU -(28*8+1),0 
: DRAU 0,-9: INK 7 

72 LET Fa0 

73 LET FaF+1: LET QaF+34 

74 IF Fa144 THEN LET Fa0: 00 T 
O 0073 

76 LET U*aXJÍF TO O) 

76 PRINT PAPER 4; INK 0j BRIOH 
T 1,AT 20,3;U* 

77 PAUSE 5 

78 IF INKEY*<>"" THEN RETURN 

79 00 TO 0073 

00 RETURN_ 

81 REM ■ | | j J | \ I —— 

82 FOR *«144 TO 184:FOR ia0 T 
O 7 

83 READ M: POKE USR CHR« *+i,m 

84 BEEP .03,n/? 

85 NEXT i: NEXT * 

88 RETURN 

37 DATA 60,136,855,855,355,855 
,136,60 

89 DATA 60,126,353,340,240,253 
, 126,60 

89 DATA 0,66,231,231.255,255,1 
26,60 

90 DATA 60,126,63,18,15,63,136 
, 60 

91 DATA 60,126,355,355,331,231 

, 66,0 

92 DATA 56,124,214,314,254,384 
,170,170 

93 DATA 0,0,0,34,34,0,0,0 

94 DATA 0,31,63,113,96,99,103, 
103 

96 DATA 0,348,853,14,6,198,330 
, 102 

96 DATA 102,103,99,98,113,63,3 

'97 DATA 102,330,198,6,14,263,3 

46,0 

98 DATA 102,102,103,102,102,10 
2,102,102 

99 DATA 0,255,255,0,0,355,255, 

0 

100 DRTR 103,103,102,103,102,12 
6,60,0 

0 10l DATA 0,252,£54,6,6,254,262, 

102 DATA 0,60,136,102,102,102,1 

02,102 

103 DATA 0,63,127,96,96,127,63, 

0 

104 DATA 102,103,99,96,96,99,10 
3,102 

g 105 DATA 102,231,195,0,0,356,25 

106 DATA 102,230,198,6,6,196,23 
0,102 

107 DATA 0,255,255,0,0,195,231, 
102 

106 FOR íal9 TO 21: PRINT PAPER 
1;RT 1,0 .a* NEXT i: RETURN 

109 REH ÉPM—8|lll lÍHihji ■— 

110 60RDER 1:PAPER 0:INK 7:C 

LS 
















ni qo aue ai 08 

lis LET f*■"... 

..: FOR ii0 TD 16: P 

R1NT PAPER 0; INK 4;AT i,0;f*: N 
EXT i 

113 RESTORE 0119 

114 FOR j»l TO 14 

115 READ Xj , X: FOR 1*1 TO x 

116 READ flT i, AT b: PRINT INK 3;R 
T RT4, ATb; X* 

11? NEXT i: NEXT j 
116 RETURN 

119 OATA »H",16,0,4,0,7,0,24 0, 
27,2,9,2, S2,4,1,4,30.10,1,10,30, 
13 i 8,13,23,14,1,14,30,16,14,1S , i 
/ t 17/8 ^17 ^23 

120 DATA "U”,16,1,7,1,24,9.1,9, 

3 ?; 6 A 4 ^? j Z¿ 6 ¿É 4 ¿5'éZ' ió,Í 2 ,aí 

^14,3,14,28 , í 6,12,1S , 19,18,8,18 , 

121 DATA "C 11 ,18,1,17,1,89,3,3,4 
'? 4 S 4 1 ?A*¿17 48,10,8,17,6,24,6,¿9 

4 lKÍ9 Í7 * 89 ' ' 12 ' 18 ' 13 ' Xéi 17 J 

122 ' DRTR ‘'S-' , 16,1,2,1,14,3,28,4 

<! S 8 1 5 1 ,8,14,8,21, 

10,13,10,23,10,28,13,13,13,16,17 
, E , 17,12 ■ 17,87 

123 DATA "fí",9,1,1,1,18,3,7,5,8 

' i aT 8 +; iH* ll VI 4 l É' 8 $ 

¡* !■ i ¿ 7 i ®4 i *' 1 :!: i?; S¡; 


Notas gráficas 

ABCDEFQHIJKLMNOPQRSTU 

8 ! 5 SS 5 ?¡!iU 5 hS{¡S 
5 8 P. * i a 


126 OPTA "yMI, 3,4,3,9,3,19,6, 

187 DATA "I!" , 3 , 4,84 , 5 , 1 , 10 , 87 
5 l || DATA -,4,6,18,6,19,1578,1 


>, «J 

129 DATA “ü",3,4,7,5,30,10,4 

i 3 ®. Oats : si®: iítítSatS*. 


i«, 


ifíJJSJétSi 14 ' 14 ' 1 *' 14 ' 17 ' 1 *' 4 

132 DATA "S",44,1,13,1,18,3,8 3 
¿ x 3»3,14,3,15,3,Í6,3,17,3,18,3,£ 
i¿ 5 ¿ a x®'2,8,11,5,13,6,16,5,80,6, 

a §4®4 á S¿ a 4 6 4*'«¿8,11,é,1¿- 8,lé,é 

¿20. 0 j 25.9 j 26 j10 j Q,i¿.¿i J ift .iü 1 
0 ,iM0,á«; 10:88 láclala® 15 I 7 

•"¿i ^ A, * 20*17,28 

NB ais* 8 st¿p sAue "comecccos" li 

Cfl 3 CXNTfl * PRINT RT 10 ' 8í " 

135 90 SUB 0081: DIM a* (4,1)■ L 
ET q*<l>.“B‘ 1 : LET Q*(8)I"?"? LET 

RiíSÍ.-S": LET aiÍ4)■"6" 

136 LET r c «0: LET 

B0B1 60 T0 


• «Q * « • *C3* *CS * 1 ■ *0* • í| • 1 _ 

f=a:nJ: =r?::'ñf??: U;:ír?=i 





||■ • • • 0 • . .11 .... 



.0. 

POINTS: 100 


POWER; 138 
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La resolución de ecuaciones es 
un tema sencillo para cualquier or¬ 
denador. Por eso pensamos en 
complicarlo un poco introducién¬ 
dole el programa en Pascal. Lógi¬ 
camente necesitara un compila¬ 
dor. Para éste programa se utilizó 
el HP4S, pero no tendrá ningún 
problema utilizando otros. El pro¬ 


grama está preparado para resolver 
la ecuación SIN(X) + TAN(X) -1 
definida en la línea 60. Basta cam¬ 
biar esta linea para calcular cual¬ 
quier ecuación. El método utiliza¬ 
do es la iteración (líneas 190 a 240) 
para el intervalo y error permitido 
introducido. 

Para que tenga solución, los ex¬ 


tremos del intervalo han de ser de 
distinto signo y dado que la fun¬ 
ción signo no existe en Pascal, se 
ha multiplicado la función en un 
extremo por su valor en el otro ex¬ 
tremo. Si el resultado es menor que 
cero ello significará que el proble¬ 
ma tiene solución. El compilador 
parte de la dirección AC64. 


Autor: José Ramón Herrero 16K 


AC64 

10 

PROGRAM BISECCION; 

AC64 

20 

VAR 

AC6D 

30 

A,B,M,E:REAL; 

AC6D 

L- 

40 

FUNCTION F(X:REAL) :REA 

AC70 

50 

begin 

AC88 

60 

F:=SIN(XKTAN(XH 

ACB5 

70 

END; 

ACD0 

80 

BEGlN(+PROGRAMA PRINCI 

PAL* 1 ) 

ACD9 

90 

READ(A,B,E); 

ACF7 

100 

WRITE(CHR(16)); 

ACFE 

110 

WRITELNCLOS EXTREMO 

S DEL INTERVALO SON’); 

AD2A 

120 

WRITELN; 

AD2D 

130 

WRITELN(’A=\A,’B=, 

B); 

AD5E 

140 

WRITELN; 

AD61 

150 

WRITELNf’EL ERROR PE 


RM1TIDO ES ,E); 

AD8E 160 WRITELN; 

AD9! 170 IF F<A)*F(B)>=0 THEN 

WRITELNfNO EXISTEN RAICES 

’) 


ADEF 

180 ELSE 

BEGIN 

ADF5 

190 

REPEAT 

ADF5 

200 

M:=(A+B)/2; 

AE1D 

210 

IF F(M)*F(A) 

<0 



AE50 

220 

THEN B:=M 

AE5D 

230 

ELSE A:=M 

AE6E 

240 

UNTIL TRUNCfA/ 

E)= 

TRUNC(B/E); 


AEB4 

250 

WRITELNfLA RA 

IZ DE 

LA ECUACION ES' ,M); 

AEE5 

260 

WRITELN; 

AEE8 

270 

WRITELNfCON l 


N ERROR < 0.00000F) 
AFOA 280 END 

AF0D 290 END. 

End Address: AF0F 


^TRun? 

LOS EXTREMOS DEL INTERVALO SON 
A- 1.20000E+01 B= 2.00000E+00 
El 

L 


EL ERROR PERMITIDO ES LOOOOOE-O 
6 

NO EXISTEN RAICES 


LOS EXTREMOS DEL INTERVALO SON 

A= 0.00000E+00 B= 9.OOOOOE-O l 

EL ERROR PERMITIDO ES 1.OOOOOE-O 
6 

LA RAIZ DE LA ECUACION ES4.5000 
0E-01 

CON UN ERROR < 0.000001 
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Afortunadamente todavía que¬ 
dan muchos rincones en nuestra 
geografía donde se reúnen los vie¬ 
jos amigos a echar la partida de do¬ 
minó, en tomo a una destartalada 
mesa con el único fin de pasar un 
buen rato. 

Este es el juego que le propone¬ 
mos con el siguiente programa. La 
situación es un poco distinta, acor¬ 
de a los nuevos tiempos, fiero las 
normas del juego se han respetado 
al máximo (incluso podrá engañar a 
su oponente, robando fichas aun¬ 
que tenga para poner). Julio Gó¬ 
mez nos contaba los problemas 
con que se encontró en la realiza¬ 
ción de este programa; 

“Cuando comencé a realizarlo 


tenía el Spectrum en reparación, 
con lo que tuve que diseñar la es¬ 
tructura básica sobre el papel y no 
directamente sobre el ordenador. 
Ello me llevó a un mayor orden 
como se ve en el gran número de 
subrutinas. Así por ejemplo, tas lí¬ 
neas 500 y 501 forman una peque¬ 
ña subrutina cuya misión es sacar 
de la tabla b$, donde se contienen 
todas las fichas, aquella que va al 
ordenador o al jugador. De hecho, 
esta subrutina ya la había utilizado 
para ordenar números en otro pro¬ 
grama. Otra consideración que 
tuve en cuenta es que las rutinas 
interaccionasen lo menos posible 
entre sí, pues de esta manera es fá¬ 
cil aislar errores, que es el primer 
paso para corregirlos. Por ello es¬ 
tructuré el programa en tres gran¬ 
des bloques: programa principal y 
subrutinas del jugador y del orde¬ 
nador. 


Programa 

principal 


E! programa principal ocupa de 
la línea 10 a la 370. Comienzo di- 
menssonando e iniciando las varia¬ 
bles a utilizar, asignando en la lí¬ 
nea 100 a cada elemento de la ta¬ 
bla t$ una semificha (por ejemplo 
□). La tabla u$ contiene todas las 
fichas'del dominó, realizando una 
copia en B$ (líneas 210 a 270). La 
asignación de fichas al ordenador y 
jugador, se realiza en las instruc¬ 
ciones 280 a 330, reordenando B$ 
mediante la rutina antes comenta¬ 
da. Pero la parte más complicada 
fue la generación de las 49 fichas. 
Realmente en el dom inó ‘físico’ 
sólo hay 28, puesl ■ I’-1 sólo difiere 
en un giro de |'T-~l , pero el ordena¬ 
dor no lo sabe. Por ello necesitaba 
una rutina de dibujo de las fichas, 
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que coloqué entre las líneas 1000 a 
1040. 

La variable ‘i’ indica la posición 
horizontal de la ficha (entre cada 
ficha de dos caracteres hay otro de 
separación) como tenemos 7 fichas 
el final estará en 7 * 4 = 28. 

En la línea 1020 asigno a ‘mi’ y 
‘m2’ los valores de j$(mat,l) y 
j$(mat,2). Supongamos que mat=t 
y que j$(l>=“04” C0)* Entonces 
ml = 0+ i = I ym2 = 4+ 1 = 5. 

En la línea 1020 se realiza la im¬ 
presión avanzando de cuatro en 
cuatro los caracteres gráficos co¬ 
rrespondientes a j$ y que se en¬ 
cuentran en t$. Siguiendo con el 
ejemplo sería: 

t$ (1)-M$ (5) = O +‘O’= tO’ 

que era la ficha deseada. 


— ® — 

Subrutina 

del jugador 

En las líneas 1500 a 1600 puse 
las instrucciones relativas a la co¬ 
locación de las fichas por el juga¬ 
dor. En la 1500 y 1560 se pide la 
ficha y se verifica que se tiene. La 
1570 concierne al caso especial de 
que sea la primera jugada. 

En este caso se asigna a D$ el 
primer número de la ficha y a 1$ el 
segundo, imprimiéndose la ficha 
en el centro de la pantalla y dismi¬ 
nuyendo el contador de fichas del 
jugador. Si no es la primera jugada 
(ju ^ 1), se ha de comprobar que la 
ficha elegida sea correcta, en cuyo 
caso se pasa a la rutina de coloca¬ 
ción de la ficha y a la rutina de eli¬ 
minación de la ficha en el jugador. 
Para saber si la ficha es válida, se 


comprueba si a$(l) (el primer nú¬ 
mero de la ficha) es igual a D$ (el 
número de la derecha de la última 
ficha del extremo derecho), y si es 
diferente se comprueba con 1$ (nú¬ 
mero de la izquierda de la última 
ficha del extremo izquierdo). Con 
este procedimiento siempre se co¬ 
locarían las fichas preferentemente 
por la derecha. Para permitirá! ju¬ 
gador que decida el lugar de colo¬ 
cación de la ficha, introduje la lí¬ 
nea 1575. De esta forma si se te¬ 
clea un tercer carácter, por ejem¬ 
plo un espacio, LEN aS - 3 y la fi¬ 
cha se colocaría directamente a la 
izquierda. 


Subrutina del ordenador 

Al igual que en el caso anterior, 
se comprueba si es la primera juga- 


RRNOOMIZE 

>IM X ( 5 ) : 



ll DIM X<3): DXM 1(8): DIM J«( 
38,8): DIM U*(39,8): DIM b«<89,3 
): DIM U(3): DIM m*(88,8): DIM n 
(7): DIM *(7): DIM t*(7,1) 

I0«3 LET ti(l) LCT t« CS) »"[D 

" : LCT t * (3) «"El" : LET XÉ(*)« M GT ; 

LET t§ (5) ■ ,, Q M : LET t * (6) ■ ,, H"L 
ET t*(7)■"Q" 

805 LET fiCh■36: LET jual: LET 
t4U■ !i LET Uil)al0: LET UÍ3)al8: 

LET X(l)«10: LET Xl8)al4; LET t 
UHfl •£ : LET SU b«l: LET ftunia-8 
33.0 LET C0»l 

330 POR Jü 0 TO 6: FOR i■J TO 6 
830 LET U«ÍC0)»STRt J+STR* 1: L 
ET c o ■ c o +1 
840 NEXT i: NEXT J 
850 FOR i al TO CO-1 
860 LET b»(i) 

870 NEXT i 
800 FOR i«l TO 7 
890 LET nUMaINT (RNDt FiCh)+1: L 
ET S (i) anua: LET nfU>ab« (nui ): 
00 SUS 600; LET fiChafich-1 
300 NEXT i 
310 FOR i al TO 7 
330 LET nUftaINT (RND*fiCh)+1: L 
ET ncnanum: LET J « t i ) *b« tnu» ) : 
00 SUB 500: LET fíchafich-l 
330 NEXT i 
340 00 6UB 1000 

350 LET SblalNT (RND#10): LET í 
Ja?; LET Í0a7 

360 IF S«Ua4 THEN OO TO 1600 
370 IF s«l>a4 TMEN 00 T0 8000 
600 FOR wanum TO Fich-l: LET b« 
tul) ■ b$ (W+l) : NEXT W 
510 RETURN 


LET 


’t t (ni) + t( ír»2) 



OO 


1000 LET natal 
1010 FOR i al TO 28 STEP 4 
1016 LET nlaUAL j|(nat,1)+1: 
naaORL j¿ínat¿8)+1 
1080 PRINT RT 21,i 
: LET nat=i*at + l 
1030 NEXT i 
1040 RETUR1 
1490 REM 

1500 LET FU ... _ . 

1510 INPUT "FiChi •"i ai 
1580 IF 4*a"f" Oft a Éa"R" THEN 
SUB 8800: 00 T0 1610 
1530 FOR i al T0 ÍJ 
1640 IF J«(i)*af 0R J«(I)aR«(8) + 
RJ<1> THEN 00 TO 1570 
1560 NEXT i 

1660 BEEP 1,8: PRINT RT 0,0j"ju9 
aba i laga l": OO TO 1510 
1570 IF Ju*1 THEN PRINT RT 0,87; 
”FJa":FJ"t: LET ÍJafj-1: LET JUa 
LET PlaURL fl»(ft)+l: LET PSaOR 
Ri ( 1) +1: LET d«aa«(l): LET i|a 
(5): PRINT RT 10,16; T* (Pl)+T| < 
00 SUB 3500: 00 SUB 4500: 0 
3000 

IF LEN R*-3 THEN 00 TO 1590 
EN 


L 

P2) 

0 TO 

1575 


* w r w ^ W W ■lia»''* w w ■ v * v a» 

1550 IF Il(l)>d| THEN BEEP .1*7: 
LET fjafj-1: LET alflil: 00 SUB 
3000; 00 SUB 3500: 00 SUB 4600 

LET dlaa t (3) ; 00 TO 8000 
1590 IF a*(8)ai« THEN LET _ 

1: LET a L Fa"8: OO SUB 3000: O. _ 
UB 3600: 00 SUB 4800: LET i|aa«< 
1): 00 TO 3000 

1600 PRINT RT 0,0;"jugada iltgal 

": 00 TO 1500 __ 

8000 REM 

8010 LET PLHNTa0: LET DIR>1500 










da o no. En caso afirmativo (ju = 
1), se toma la primera ficha de m$ 
y se disminuye el contador de fi¬ 
chas. Si ju?0 el ordenador ha de 
saber si tiene una ficha para poner. 
Para ello seguí la misma metodo¬ 
logía. primero comprobar con la 
derecha, comparando DS con 
mS(l) y también con m$(l,2), ya 
que si tiene la k 01’, también tiene 
la T, pero no lo sabe. Después, si 
no puede colocar en el lado dere¬ 
cho pasa al izquierdo. Si tampoco 
consigue encontrar una ficha, ro¬ 
bará más fichas, hasta que encuen¬ 
tre una. Pero una vez más, la com¬ 
plejidad vino del lado de la impre¬ 
sión. Cuando la línea se llenase de 
fichas habría que cambiar la direc¬ 
ción, como se hace en el juego 
cuando no hay más sitio en la 
mesa. La rutina ‘colocación’ de la 



línea 3000 se encargaría de hacer colocar, se introduce su valor nu- 
esto. mérico. Veamos un ejemplo: 

Alfa=l indica que la ficha se co¬ 
locará por la derecha, y Alfa=2 por 
la izquierda. En w(l) y w(2) se 
guardan los datos de la fila y co¬ 
lumna de impresión, respectiva¬ 
mente. 

El programa ya estaba listo para 
empezar a jugar, pero distaba mu¬ 
cho de ser perfecto, especialmente 
porque no dispone de una estrate¬ 
gia de juego, sólo se limita a com¬ 
probar que se dispone de las fichas 
necesarias para efectuar los movi¬ 
mientos, pero el ordenador coge la 
primera ficha que encuentra. En el 
futuro lo mejoraré, pero antes ten¬ 
go que hablar con mi abuelo, que 
de esto sabe mucho...” 

Para indicar la ficha que desea 



Si desea colocar el ‘02’ por la de¬ 
recha, teclee ‘02’. Por la izquierda 
sería *02I\ Para robar teclee *R\ 
Los caracteres gráficos no se defi¬ 
nen en el programa. El programa 2 
los genera y los guarda. Tan sólo 
tendrá que añadir la instrucción 
LOAD ‘ ’ CODE al programa para 
incorporarlos.” 

Autor: Julio Gómez Herrero 48K 
Notas gráficas: 

ABCDEF0H I ... 
0QHG3HBIOM I ... 


2020 if ju» 
"F0*";F0-1: 
IÍ-MC (1,1) ; 

Mida) +1: 

PRINT AT 


1 THEN PRINT AT 1,27; 
LCT Di-Mi (i, S): LET 
LET JU-8: LET Ul-UAL 
LET U2-UAL Mi(1,8)ti 

10 1 16;Ti(Ul) tfitua): 

LET Ai-Mi(1): 00 SU 


■H 1 


'i (Ul) +' 

LET FO-FO-1:'LEf Ai-Mi tí) 

8 4880: 00 TO dif 
2030 F0R 1*1 TO F0 
8040 IF Mi(1,1)-Di TMEN LET FO-F 
0-1: LET AisMiíI): LET Df-MÍ(I,8 
): LET ALFA-1: 00 SUB 3000: 00 S 
UB 4800; 00 TO 2060 
2080 IF Mi(1,8)-Di TMEN LET FO-F 
°~i ! Hi-Mi(l,8) tMi (1,1) : LET 

Di-Mi(1,1): LET ALFA-1; 00 SUB 
00 SUB 4B00; 00 TO 8000 

11 ¿¿ íSSSVáó*l¿ Í8 S 8 UB 

- M SlFÁ2‘"H-- H - N LST *°" F 


3000 
2000 

0 - 1 : 
M • (I 


LET Ai-Mi 
00 SUB 3000 
2090 


(I) 

: 00 


*¿RIN 


2070 IF 
0-1: LET 
ET II -Mi( I ¿1) 

UB 4600: 00 TO 
2078 NEXT I 
2077 00 SUB 2600: 

BRIOHT i;"ROBO": 

T AT 4,27; ■’ 

2060 IF FO-0 THEN 
HAS PERDIDO 1 ' : FOR 
.5,1: NEXT I: 00 
2090 00 T Q DIR 
2490 RÍM 

2660 IF flch-í THEN 00 TO dir 
2510 LET nuiíl-INT (RNDtfiCh)tl 
2520 IF dir-2000 TMEN LET N-fjt 
1: LET Ji(fJ)-bi(nuift): PRINT AT 
0,27;" AT 0,27;"FJ-"íFO 

2630 IF dir-1500 THEN LET fo-fot 


PRINT AT 
BEEP 3,2 
00 TO 2030 
PRINT AT 0,0i" 
I-l TO 7: BEEP 
TO 8000 




miífj)-bi(nun) : PRI . 
“ AT 1,27;"F0-”;FO 


NT AT 


1: LET . , . 

1,27;" ”;AT 1,27, 

2540 00 SUS 600 
2546 LET fich-fich-l 
2560 IF DIR-2000 THEN 00 SUB 400 

2670 RETURN 
3000 BEEP 1,1: REM 


C OLOCB£ 


3001 IF fJ-0 TMEN PRINT AT 0,0;” 
MAS GANADO": 00 SUB 3600: FOR I- 
1 TO 7: BEEP .6,1: NEXT I: 00 TO 
6000 

3006 LET 01-UAL Ai(l)tl: LET Q2- 
UAL A« (2) ti: PRINT AT 0,0;” 

3007 IF DIR-1600 THEN PRINT AT 1 

,27;" ";AT 1,27;"F0-";FO 

3008 IF DIR-2000 THEN PRINT AT 0 

,27;” "¡AT 0,27;"FU-*;FJ 

3010 IF ALFA-1 AND U(2)>-1 AND U 
C2)<-30 AND SUM-2 TMEN PRINT AT 
Uíl),U(2>;Ti(0l)tTi(02): LET U(2 
)-U (2)tSUM: RETURN 

3020 IF ALFA-1 AND U(2)-32 THEN 
PRINT AT W(l)tl,31;Ti<01)jAT U(1 
)ta,31;Ti(02): LET uTl)-U(l)t2; 
LET U(2)-29: LET SUM--2: RETURN 
3030 IF ALFA-1 AND U(2)>-1 AND U 
(2)<*30 AND SUM--2 THEN PRINT AT 
U (1) , U (2) ; Ti (02) tT t (01) : LET U ( 
2)-U(2)tSUM: RETURN 
3040 ALFA-1 AND U(8)-0 THEN P 
RINT AT U íl) ti, l;Ti (01) ; AT U(l)t 
8,l;Ti(02): LET Uíl)-U(1)ta: LET 
SUM-2: RETURN 

3050 IF ALFA-1 AND U(2)>-1 AND U 
(2)<-30 AND SUM1--2 THEN PRINT A 

T U(1),U(2) ;T| (01)tTS(Oa): LET U 








































nado para usted cuatro excelentes programas de juego para su ordenador SPECTRUM. 


rtase con ellos y, además, ahorre dinero con esta oferta única y exclusiva para los 
íctores de esta revista. 





Solitario, en las mazmorras 
encantadas y oscuras de Su castillo. 

el Dr. Franky mienta 
desesperadamente convertir el 
monstruo que él ha inventado 
en un ser humano, Parece simple, 
pero no lo es. Se trata de encontrar 
los frascos que contienen los 
productos químicos que dan la vida. 
Y no debes olvidar la fuerza de lo 
sobrenatural, Las gentes que han 
sido transformadas en monstruo 
quieren vengarse. 
Precio; LSSÜptss. 



Bstamos en la nueva temporada de 
Carreros, Sólo piensas en el derby, 
Diriges una cuadra de caballos, 
debes entrenarlos para el gran 
día. Compra y venda caballos, si es 
necesario, pero cuando llegue la 
carrero trata de dominar tu tensión. 
En los últimos 300 metros 
descubrirás si has hecho bien tu 
trabajo. El ordenador te ayudará, 
pero todo dependeró de tu buen 
juicio. 

Precio: 1,550 ptas. 





Tres meses buscando el Tempolo 
templo de Qiietzacoatl para acabar 
atrapado en él. Tus ■compañeras han 
sido asesinados, Tu única manera 
de salir es atravesando la red de 
pasadizos secretos construidos par 
los aztecas, Pero intención! no 
incurras en 1 provoques la 
veganza de los dioses. Puedes 
consultar tu mapa, pero cada vez 
que lo haces se desintegre y debes 
comenzar de nuevo tu desesperada 
búsqueda de salidas. Huena suerte, 
Precio 1.5 50 ptas. 


La Tierra ha caído en el 
oscurantismo. Nigromante y sus 
demoniacos sirvientes la han 
conquistado, esclavizando a los 
humanos. Tú eres el última de los 
brujos de otra época y debes 
viajar a Stonehenge para 
rescatar a otros tres brujos, a 
quienes necesitas paro vencer a 
Nigromante. Se agota tu tiempo. 
¿Podré salvarlos antes de que se 
hayan convertido en piedra? ¿Antes 
que la Tierra se hunda eternamente? 

Precio; 1,550 ptas. 






Usted puede comprar cualquiera 
de estas cassettes a su precio 
Individual de L5S0 Ptas. 

Pero también puede adquirir el 
lote de 4 por sólo 4.650 Ptas, 
y AHORRARSE 1,550 Ptas, jj 
L O sea. cuatro cassettes por c\M 
ku recio de tres. Aproveche esj I 
oferta limitada, 


Recorte y envíe este cupón HOY MISMO a; 

INFODIS, S,A, 

Bravo Murillo* 377-5- 0 -A 
26020 MADRID 



Envíenme a mi domicilio, al precio de 1.550 Ras. cada una, más 95 Ptas. de gastos, la cassette □ 
cassettes que le indico a continuación marcando con una [X] en el casillero correspondiente. 
Queda bien entendido que pidiendo las 4 cassettes obtengo un aliono de L55U Ptas.. lo que me 
supone UNA CASSETTE GRATIS (Sólo pagaré 4.650 Ptas. más 95 Pías, por gastos de envío). 


ANAGER' ' □ QUFrZACOÁTL □.DR. FRANKY □ SORCERY 
én las vtínlajosa.s condiciones de AHORRÓ para mí (4.650 Ptas.)- 

El importe lo abonaré: 

POR CHEQUE □ CONTRA REEMBOLSO □ CON TARJETA DE CREDITO □ 



Numero de mi Tarjeta 


. 



























Nombre _ _____ — 

Dirección ._____ 

Ciudad ___ 

Provincia ________ = ___ 

Cada envío llevará 95 Ptas. en concepta de gastos. 


D,P. 























































ia>-U(3)+SUM1: RETURN 
3085 IF ALFA«8 AND X (&)>■! AND X 
(Sl<«30 AND SUMl«-8 THEN PRINT R 
T X(l),X(ai;T*(Q1> +T*(Q8) : LET X 
OI*X (a) +SUM1: RETURN 

«nd *<a>*3a then 

PRINT RT X í 1) *1,31; Ti (08) ¡ RT X O, 
1 + 8 , 31 ;T*(Qll: LET X(l)»XClí-a: 
LET Xtai«aQ: LET 8UH»-a: RETURN 
3070 IF RLFR»a AND XÍ8)>al RND X 
caí <«30 RNO SUM1-8 then PRINT RT 
Xíl) ,X(g) ;T$(Q8>+TÍÍQ1) : LET Xí 
31■X(8>+SUM1; RETURN 
3080 IF ALFfiaS RND X(8)«0 THEN P 
RINT RT X(1),1;TÍ(02) RT X(l)-1, 
l;T*(Ql): LET Xíl>«X(l)-8: LET á 
UM1-8: LE T X (8) «X (8) + 1 : RETURN 
3500 REH » 

3510 FOR U ■ 17 TO 81 STEP 8 
3630 PRINT RT U,0j" 


# 


3588 NEXT U 

3530 LET URa0: LET LINaSl 

3540 FOR U«1 TO Fü + 1 

3680 IF J«(U)aA§ OR J*(U>-A*(81+ 

fli(l) THEN QO TO 3580 

3860 IF UR >«30 THEN LET LIN-LIN- 

8: LET UR*0 

3570 LET RftaURL J*(W,ll+l: LET R 
PaURL J§ÍU,8)+1: LET C*aTÉ(fl6)+T 
«ÍRPli PRINT RT LINiUR+1;C$ 

3680 LET URaUR+4: NEXT U 
3580 RETURN_ 

4000 REH ' h *ñrv^rrwrry 

4003 FOR U»17 TO 81 STEP 8: PRIN 

T RT U,0;" 

": NEXT U 

4006 LET TRU«0: LET LlUaai: FOR 
Wal TO FJ 
4010 LET ftlaUAL 

a*uRL j*tu,a> 

4015 IF TRU > «30 THEN LET LIU»LIU 
-8: LET TflU«0 

4080 PRINT RT LIU,TAU+1;T*(Al)+T 

Í (R2): LET tftUatftu+4 

í 


j*(U,1)+1: LET ft 


4030 NEXT W 
4040 RETURN 


/UTTPfr 


4500 REM __ ._a - _ . 

4510 IF DIR*1500 THEN 00 TO 4500 

4520 FOR U«1 TO FJ 

4530 IF J«(U)«R« OR J|(U>aR|(8)+ 

R|(ll THEN LET PLRNTal 

4540 IF PLRNT-1 THEN LET J*(U)aJ 

* (U + l) 

4550 NEXT U 

4560 RETURN 

4600 FOR U ■ 1 TO FO 

4605 IF M«(U1-R« OR H«(U)-R«(81+ 

R*(ll THEN LET PLRNTal 

4610 IF PLRNT*1 THEN LET M*(UJ«M 

« (U + l) 

4630 NEXT U 
4640 RETURN 

5000 INPUT "QUIERES JUQfiR OTRR S 
/N";Q| 

5010 IF QV■"5" OR Q*a"»" THEN RU 


N 

5015 IF QÍ«"N" OR 


INT RT 0^S;"EL PROGRAMA SE BORRP 


THEN PR 


Q ft ■ " n 1 

.LPt i ni kj , <u , üi. r-nOGRAMR 
RR RL CUARTO 8EEP . PRRfi EUITRRL 
O PULSE UNA TECLA SIN SOLTRRLR" 
5020 FOR 1*1 TO 3 


5030 IF ÍNKETSO"*' THEN CLS 
TO 5000 
5035 BEEP 1,1 
5040 NEXT I 
5050 RRNDOHIZE USR 0 



F8 


l 11 EEEEEEHHíEB 


L m 


I T^l frli'l ' í Pil 




























OjjpxJjQÁes 

¿Recuerda aquellos días en que había que memori- 
zar interminables listas de las ciudades de todo el 
mundo? Con este programa es más práctico y más di¬ 
vertido. Puede discriminar los continentes que desee, 
y si no acierta el ordenador le da la respuesta. 

Su manejo es muy sencillo. Unicamente ha de te¬ 
ner en cuenta que la primera letra de la palabra o pa¬ 
labras ha de ser mayúscula {Santiago, Buenos Ai¬ 
res...). A primera vista puede parecer un programa 
trivial, y realmente lo es, pero sus posibilidades di¬ 
dácticas son realmente importantes. 


Autor: José María Santamaría 


16 K 


1 REM AUERIGUAR CAPITOLES 
s rem © 1984 Jota María Santa 
maria Bo Ltd./Madt in C0R0ERA/19 


Junio 

3 POR n«l 
EXT n: PRINT 
T 11,13;"LAS 

PAUSE 99: 

PRINT AT 19,Si 
a San tamari a"¡ P 
CLS 

4 POKC 33689,87 
6 GO SUS 4880! C 

ASM lj"CAPITALES": 


TO 13: DEEP .1,n: 

AT D.10j"APRENDA" 
¿AT 15,9;"CAPITAL 
DEEP .87,30: INK 

1984 JO*a Mari 
USE 90: INK 0: 


LS : PRINT PL 
INPUT "Cuanta 



rawCtó 


racutrdás 7 
THEN LET M 
TO 17 
THEN LET 
TO 17 
THEN LET 
TO 17 
THEN LET 
TO 17 
THEN LET 
TO 17 
OR INKEY 
: LET Mal 


•33 


M-33 

M"B1 

M*39 

M*il 

* ■" 1 " 
7; G 


i quiarts aprandar? ";0 

6 PRINT "Pu Isa:. 1*EU 

ROPA (33 paisa»). 8 *AME 

RICA (33 paiiaa). 3«APRI 

CA (61 palias). 4-ASIA 

(39 paiS«S) .. 5*QCEANI 

A (11 paisas) . T «TODOS 

(167 paisas)"; AT 19,8;"Usa ini 
cial capital Mayúscula ';AT si,e 
;"Puisa ENTER sino 

7 IP INKEY0*"1" 

: RESTQRE 1000: GO 

8 IP INKEYg*"#" 

: RESTORE 1508: GO 

9 IP INKEYi■"3" 

RESTORE 3800: GO 

10 IP INKEYJ-"4“ 

RESTORE 3590: GO 

11 IP INKEYÉ*"6" 

RESTORE 3000: GO 

13 IP INKEY(«"T" 

THEN RESTORE 1080 

0 TO 17 

14 
17 
10 
30 
36 
30 
40 
Si 
60 
66 
70 
75 
60 
90 

DE ‘ 

100 
106 

( 1 ) ; 

110 
00 

130 6EEP 1,-16: PRINT RT 
LA6H 1; INK 1;"INCORRECTO 4 
H 0;RT 11,a;"La rasputsta 
INK 3; CJ (S) ¿ INK ' 

130 GO TO 330 
300 LET T.T+1 
310 POR 1*10 TO 11 
NEXT i: PRINT AT 
6 AIGHT li INK 3; 

< 0: BRIGHT 0: PL 


17 

GQ TO 7 

DIM 89(1,30) 

DIM P|(M,30) 

DIM C|(M,30) 

POR 1*1 TO M 
REAO P«(D 
RERD Cfd) 

NEXT I 
LET T *0 
POR J*1 TO O 
CLS 

LET S.INT .. 

BEEP .38,38: PRINT 
' ; BRIGHT liP9(8) 


iRND#Ui#M+£) 


'CAPITAL 
BRIGHT 0 


89(1) 


'8 


INPUT 
INK 8 
INK 0 
IP 89 d) *C9 (6) 


SEP .1,18: PRINT 89 


THEN GO TO 3 

9,3; P 
PLA8 

_ tS: "; 

PAUSE 166 


0 


£30 NEXT 
830 CLS 


BEEP .81 
*, 19; PLRSH 
j* ‘flCERTRSTC 1 j 
r LA6H 0; PAUSE 


* ¡i 

1 , 
IN 

76 


>9,38: PRINT AT 


CLS : BEEP 
9,3;"EL NUMERO 
BRIGHT lj INK 
T 0 

340 PRINT AT 30 8;"EftpazaftO* da 
nuavo? (s/n)" 

350 IP INKEY9* 1 S 1 
THEN CLS : GO TO 5 
880 IP INKEYi*"r" OR 
THEN CLS : PRINT AT 
LA PROXIMA": STOP 
370 GO T O 368 
999 REM iülM'dsI 

1008 datr^alirnir" ,"Tirana", "AN 
DORRA"/'Andor ra la uaUi","AUSTR 
IR","Uiana","BELGICA"/'Drusa las 
,"DULGRRIR" /'Sofía" 


? i i / <8 1 rN XÍNT f 

DE ACIERTOS ES , 
3;T; INK 8: BRIGH 


.OR INKEY9 B ’ , S tl 

. INKEY9*"N" 
13,0;"HR6TR 


',"Drusa las" 
'CHEC06L0UR0 



















,"GRECIA" 4 r, At«n«S" , "HUNGRIA"¿"BU 
1¿1« data "LUXEMBÚRgS"^"L u X« m bu r 


SLfluifl"," B*Lan do" 

1499 REM fd B W l B Ma 

1500 DATA” ARGENTINA", "Butnos Ri 
r«ft","BRHRMR9","NiSSZU","BARBADO 
S" , "Br IdgatOiin'VBÜLlUlA'V'Ls P* 
Z","BRASIL","BrasiLi a"."CANADA", 
"Ot Huí*" , "CHILE" i "Santiago" i "COL 
ÜMBIR","Bogotá","COSTA RICA","5* 
n Joi*","CUSR" , "La Habana","DOMI 
NICR"i"RostlU" > "ECUADOR">"QuitO" 
, "EL SALUADQR" , "San Sé Lvado f "¿"E 
■E•uiu•"j"Washington"."GRANADR", 
"5» i n t Otorga'*" /'GUATEMALA" , "Ou 
atama La" 

1510 DATA "GUYANA","Gaorgttown", 
"HRITI"/'Pu*r tO Pfincipt'V'HONDU 
RAS"/‘Ttgu Ciga Lpa "¿"JAMAICA","Ki 
ngs ton"¿"MEXICO","Ciudad da Mtxi 
co"," nicaragua", "Managua", "PAnam 

a 1 ' "DBn>Ma<> "ppRp^QjflY" 11 da ii n /• i rt n, 


A'V'Panana , 

, "PERU" , "Lilia" 


wwm ¿ Asunción 
PUERTO RICO","5 


Don» i n go " ¿"SANTA LUCIR" > "Cas tria 
»" , "SRN UÍCENTE" , "Kingstouin", "BU 
RINRM", "Paraniaf i bo" , "Trinidad Y 


tobroo","P ort oí Spain"j"URUOURY 
" 4 "Monttvidao","UENEZUELR","Cara 

cas" _ 

1999 REM ULtoHaS) 

3000 data "aLto uoltr","U agadugu 
J"RNOOLfl"¿"Luanda","ARGELIA", "A 
rgt L">"BENÍN","Porto Novo","80TS 
URNA"*"Oa bo ront","BURUNDI","BuJu 
mbura","CREO UERDE","Praia","CfiM 
ERUN"*"Yaunda","CHAD"j"N DJanana 
"¿"CÜM0RE3" "Moroni "¿"COSTA DE M 
RRFIL ¿ Rbidjan" j"EOIPTO","EL Cl 
" /'ETIOPIA", "Addi s Ababa"¿"GR 
","Libravilía"."GAMBIR"/‘éan j 


i ro 
BON 

u i" 


an Juan","REP.DOMINICANA","Santo 


3910 DRTR "GHANA","ReCri","QUINE 
R","COnaKTU ","GUINEA-BISSAU">"Bi 
ssau","GUINER ECUATORIAL","Ma Lab 
o","KENIR","Nairobi","LEBOTHO"," 
Masaru" , "UBERIA", "Monrovia", "LI 
BIfi","Tripo Li","MRDflGASCAR","Tan 
anari va", MALAUI","LiLongwt" /’MA 
LI","BamaKo","MARRUECOS","Rabat" 
¿"MAURICIO","Port Louis'V’MAURIT 
ANIR","Nuakchott","MOZAMBIQUE"," 
Maputo" , "NRMIBIR" , "Uindhoan." , "NI 
GER","Niamay"/'NIGERIA" /'Lagos", 
"REP.CENTRORFRICANR","Bangui" 
SOSO DATA "REP DEL CONGO","BraZZ 
aviL La","REP SUDAFRICANA","CiUda 
d da EL Ca bo"¿"RUANDA","Kiga Li", 
"SAO TOME Y PRINCIPE"."Sao Tona" 
,"SENEGAL","Dallar","SEYCHELLES", 
"UiCtoria","SIERRA LEONA","Fra«t 
own","SOMALIA"MogadiS Ci O","SUD 
AN" ¿"jar tu»" , "TANZANIA" ."Dodoma" 
,"TOGO"¿"Loma","TUNICIA"."TuntZ" 
, UGANDA","Kampa La"."YIBUTI","Yi 



Etvu^zaivcb cmTmiÁj 


Dicen que en este mundo tiene que haber de 
todo. Y el Forth parece estar llamado a "pegar 
fuerte" en el futuro. Alfonso Martín nos ha reali¬ 
zado una pequeña y básica demostración para ir¬ 
nos familiarizando con este lenguaje, utilizando 
el compilador Abersoft. 

Listado 1 

: AL2 CR JUEGO DE CARACTERES” CR • 

: ALl ó PAPER 1 BORDER CLS AL2 255 23 
DO I 23 -. 8 SPACES I EMJT CR LOOP; 

: INPUT PAD 1+64 EXPECT .0 PAD 
(NUMBER) DROP DROP.; 


El programa 1 define ALl, AL2 e INPUT. Las 
dos primeras sirven para visualizar el juego de 
caracteres del Spectrum. INPUT permite intro¬ 
ducir datos numéricos. 

E! programa 2 ilustra la forma de crear sus 
propios condicionales. Para ello se definieron 
AL3, AL4, AL5 y AL6. Teclee AL3, a partir de 
la cual se hace referencia a las otras, e introduzca 
un dato. El programa le indicará si es menor, 
mayor o igual a 100. 

Iastado 2 

: AL4 . “EL NO. ES MENOR DE 100 " ; 

: AL5 . “ EL NO. ES MAYOR DE 100 ” ; 





buti", "ZAIRE” /'Kinahi**" , "ZAMBIA 
" , "LUHK * 1 , "Z ÍMBABUE" , "Hif *r«" 
34.99 REM ggHft 

3509 DATA^AFGAN I9TRN " , "K« bU l" , " 
ARABIA SAUDITA" , "Riad " , "BAHREIN" 
/’Manama", "BANQLADESH" t "O* CCI"i " 
BIRMANIA","Rangún" ¿ "BUTAN","Puní 
ka "i"COREA DEL NORTE","Pyongyang 
"/'COREA DEL SUR" /’6«U l" /'CHINA" 
/■PlUin","CHIPRE"*"NiCOSil" ,"EMI 
A. ARAB. UNID."/'AbU Dha bí" /'FIL 
IPINAS" , "Man i la"/'INDIA" /‘NU* va 
D« Ih 1 " ,"INDONESIA","Ya ka f t 1 " /' IR 
AK"/'Bagdad" /'IRAN" /'Tthtfin"/'I 
SRAEL" i " J* (TUS* ttn" , "JARON", "To K i 
o" , "JORDANIA" j "Ammán " , "KAMPUCHEA 
"/'Phnom Penh" 

3519 DATA "KUUAIT"/'Kuwai t" ,"LAO 
S","Uitntiint","LIBANO" ,"B*irut" 
/'MALASIA","Kuala LUWPUf" /'MALDI 
DAS" , "Ma i.*" , " MONGOL I A 7 ' , "Ulan-Bat 
or " , "NEPAL" j "Katmandu "> "OMAN" , "M 
aacata", "PAKISTAN" /'la lamabab" /■ 
OATAR" i "DOha " , "SINGRPUR" , "Bingap 


yr^OMs 



yr"¿"SIRIA","Damasco"/‘SAI lanka 
J COlombO" í"TAILANDIA"."B lftO kQK 
» TAIUAN"/'Taipti","TURQUIA*,"A 
nK*r*" ,' , ^JIC T NRM ,, , "Hanoi " , "YEMÉN 
DEL NORTE"/'Sana"/'YEMEN DEL SUR 

."Adán" __ 

3999 REM S ftMdB i lg 

3900 C ATR 1t RUSTRAL IA " . "Can bt r f a " 

, "FIJI","Suva","KIRIBATI"/‘Bairi 
k i " ,"NAURU","Yartn","NUEVA ZELAN 
DA","Uallington","PAPUA-NUEVA GU 
INEA","Por t Mort&by","SALOMON", 
Herniara","SAMOA","Api a","TONGA", 
"Nuku'ALOfa","TUUALU","Puna futí" 

,"UANUATU","Por t Uila" 

4.000 PQKE USR "n " +0 *BIN 00000000 

4010 POKE USR "n"+l,BIN 00111000 

4030 POKE USR "n"+2,BIN 00000000 

4030 POKE USR "n"+3,BIN 01111100 

4040 POKE USR "n"+4,BIN 01000100 

4050 POKE USR "n"+5,BIN 01000100 

4060 POKE USR "n"+6,BXN 01000100 

4070 POKE USR "n"+7,BIN 91000100 

4090 RETURN 


CAPITAL DE RUMANIA 


1 «EUROPA 
3«AMERICA 
3*AFRICA 
4 «ASIA 
SaOCEANIA 
T«TODOS 


(33 paisas) 
(33 paisas) 
(31 paisas) 
(39 paisas) 
(11 paisas) 
(167 paisas) 


Usa inicial capital Mayúscula 
isa ENTER sino racuardaa 


INCORRECTO 

La raspuasta as: Bucarast 


. ■ • 


_ 


: ALÓ . “ EL NO. ES IGUAL A 100 “ ; 

: AL3 INPUT 100LIFAL4 ELSE 100 = IF 
ALÓ ELSE AL5 THEN THEN ; 

Veamos ahora cómo construir un pequeño 
programa que nos dé el factorial de un número. 
El listado 3 define tas variables F y D. En F se al¬ 
macena el producto, y D es el contador. Intro¬ 
duzca FACT y el número del que desea obtener 
el factorial. 

Listado 3 
0 VARIABLE F 
0 VARIABLE D 
FACT1 1 F ! INPUT D ! D @F !; 

FACT3 D@ 1 - D!; 

FACT FACT 1 BEGIN F@DUP D @ 1 - * 

F ! FACT3 D @1 = UNTIL F ?; 



Finalmente el programa del listado 4 permite 
utilizar las posibilidades gráficas del Spectrum, 
indicando las coordenadas X,Y. Teclee PIN¬ 
TAR, el ordenador le pedirá los valores iniciales 
y finales (coordenadas) para trazar líneas. 

Listado 4 
0 VARIABLE XI 
0 VARIABLE YI 
0 VARIABLE XF 
0 VARIABLE YF 

: P1I / X “ INPUT XI!Y ” INPUT Y! 

I - 

: P1F X ” INPUT XF! / Y ” INPUT 
YF!; 

: P1 INTRODUCIR VALORES " CR." 
INICIALES ” P11 CR FINALES ” P1F ; 

: PINTAR PI CLS X1@YI@ PLOT XF@ 

YF@ DRAW ; 






























60SANEZ 


fot ^Jóíe C- 'lomtá 




/YO QuiTAS/A £5A 
itJSTRUCcjófj... . 
'coarARiA Pod LA '2oo\ 

i y Cofí LA 2\0 y LO \ 
¡POUMÍA SU6'I 

[Rur/m jmG 

/'ÍrdonA QvjE ¡USÍS7^\ 

í YO CORTARÍA EN lA / 
XliWéa 2oo y 21 oj 



cS>m, 

( tí 

y r w 



No estoy dispuesto a decirte que en el próximo numero se hablará de: 


ARCHIVO DE SOFTWARE* Un original programa para guardar la información de sus 
programas, 

UTILIZANDO EL SPECTRUM PARA HACER PELICULAS* Comentarios sobre el VU-3D. 
EXPANDIENDO EL BASIC. Una forma sencilla de incorporar nuevos comandos. 
DOMINANDO LOS ARCHIVOS EN MICRODRIVE. 

PROGRAMAS: El auténtico «Froggér» en exclusiva para nuestros lectores. 

Y MUCHOS OTROS TEMAS 


Así que no insistas y espérate al próximo número. 


SERVICIO DE EJEMPLARES ATRASADOS 



juegos íntéli^ 


Complete su colección de ZX. 

A continuación le resumimos el contenido de los ejemplares atrasados 
en existencia. 

Núm. 3 - 250 Ptas, 

El Spectrum por dentro/Programas, juegos 
y montajes/Software 

Núm. 4 - 250 Ptas, 

QL. el nuevo Sincíair/Programas, juegos, 
mcmtajes/l deas/Novedades 

Num. 5 - 250 Ptas. 

Gráficos y sonido en el Spectrum/übros 
Software/Programas. 

Corte y envie este cupón a: ZX 
Edisa - López de Hoyos, 141 - 28002-MADRID -y£- 

, r SERVIOO DE E JEMPL ARES ATRASADOS 

I Ruego me envíen los siguientes ejemplares atrasados de ZX 


El importe lo abonare 1 

Contra reembolso □ Adjunto Cheque o Con mi tarjeta de crédito > 

American Express □ Visa □ Interbank □ Fecha de caducidad 

Número de mi tarjeta: CU I 1 ! I H 1 ! "• I í H i | j I TIII J.1J 

NOMBRE _______,_ 

DIRECCION_ 

CIUDAD __,________D.P, ____ 

PROVINCIA __ _____„ 


Num, 6 - 250 Ptas. 

Construya su propio juego'Programas 
y montajes/l deas/So ftware. 

Núm* 1 - 250 Ptas, 

Juegos intelígentes/Software/Programas/ 
Libros. 

Núm 8 - 250 Ptas, 

La aventura es la aventura/Programas/ 
Juegos y montajes/Códtgo máquina. 
























































16 K 



GARANTIZAMOS 


EL CRECIMIENTO 



Si tienes un SINCLAIR ZX SPECTRUM de 16 K y deseas ampliarlo a 48 K ahora puedes 

hacerlo con toda garantía. 

Acude a tu Concesionario Autorizado INVESTRONICA y en breve espacio de tiempo 
dispondrás de tu Spectrum con MAS POTENCIA 
Además INVESTRONICA ampliará por tres meses la garantía de tu equipo, 
independientemente de la fecha de adquisición y te obsequiará con una 
Cinta de Demostración de 48 K. 



IMPORTANTE: 

Al adqium Jos producios SINCLAIR oxi]a la 
TARJETA DE GARANTIA INVESTRONICA. única 
válida en Todo el Territorio nacional y 32ave pare 
cualquier resolución de duda o reparación 
INVESTRONICA no prestaré ningún servicio 
lécrnoo a lodos aquellos apar atoe que caletean 
de la conespondiente garantía 
DE VENTA EN CONCESIONARIOS 
AUTORIZADOS 


48 K 


Amplía, 

ahora, tu SPECTRUM 
de 16 K a 48 K. 


Con garantía... 
Con más garantía. 

















I® INTIMO (RAÍA TU iPESTlIM) 




MASTER TOOL KIT 

28 utilidades diferentes 
muy útiles, pe.: 

- reloj en tiempo reai. 

- renumeración. 

- búsqueda de cadenas, 
etc. 



ADRESS MANAGER 

Muy útil como agenda para 
direcciones, etc. i Ahora con 
formato para impresora en 
80 columnas! 



CHESS THE TURK 

Juega al ajedrez hasta en 
6 niveles diferentes. 
Programa muy 
perfeccionado, considerado 
de los mejores del 
mercado 



MACHINE CODE TEST 
TOOL 

Diversas utilidades pora 
trabajar en código 
máquina. Muy valioso para 
iniciarse o ampliar 
conocimientos. 



HJLL SCREEN EDITOR 
(ASSEMBLER) 


Magnífico editor completo 
para ensamblar programas. 
Gran capacidad de 
carocteres/línea. 


FlNANCE MANAGER 

Fichero financiero con 
contabilidad. Con opción 
pora impresora en 
80 columnas. 

I IMPORTADAS EN EXCLUSIVA 
§ PARA ESPAÑA 

POR SINCLAIR STORE 





Con él podrás copiar cualquier dibujo, por 
complicado que sea y pasarlo 
posteriormente a la impresora. Muy útil 
para dibujos cartográficos. 



EXCLUSIVA SINCLAIR STORE 



Unico en su género. Joystick programadle 
con memoria que almacena varios 
juegos a la vez, durante tiempo 
indefinido. Incluye interface con salida 
que permite conexión de otros periféricos. 




Escucho cómo habla tu Spectrum, Muy 
útil oi introducirle los programas pues va 
“diciendo" los comandos y datos, y no 
hace falta mirar a la pantalla. 

Descubre sus múltiples aplicaciones. 




Crea tus propios dibujos directamente en 
la pantalla. 

Desarrolla tu imaginación al límite. 



Disponibles en estos momentos: 

- Tratamiento de textos. - Hoja de cálculo 

- Base de datos - Contabilidad general (64 caracteres). 


Nuevos programas en preparación. 


Ven a vernos a nuestras "Super-Boutiques" informáticos. 

_ £3 _ J 3_ LJ 




¿ejUtUÍ^ÍMÉj 







SOMOS PROFESIONALES 


BRAVO MURILLO, 2 (apare, gratuito en c/. Magallanes, 1) Tel. 446 62 31 
DIEGO DE LEON, 25 - Tel. 261 88 01 - MADRID 











































































